wrong error with omp-collapse

dear all

the following code is producing a wrong error.

thanks

v

ifort -v
ifort version 14.0.1

cat ifort_14.0.1_collapse.f90
subroutine test
  real :: r(3,3,3)
  integer :: i, j, k
  !$omp do collapse(3)
  do 66 k=1,3
  do j=1,3
  do i=1,3
     r(i,j,k) = 0.0
  enddo
  enddo
66 continue
end subroutine test

ifort -c -openmp ifort_14.0.1_collapse.f90
ifort_14.0.1_collapse.f90(4): error #8194: The COLLAPSE clause requires perfectly nested loops:  no code may appear before or after the loops being collapsed.
  !$omp do collapse(3)
--------^
compilation aborted for ifort_14.0.1_collapse.f90 (code 1)