1! PR fortran/85313 2! { dg-do compile } 3 4!$omp do collapse(3) 5 do i = 1, 10 6 do j = i, 20 ! { dg-error "form rectangular iteration space" } 7 do k = 1, 2 8 end do 9 end do 10 end do 11!$omp do collapse(3) 12 do i = 1, 10 13 do j = 1, 5 14 do k = i, 20 ! { dg-error "form rectangular iteration space" } 15 end do 16 end do 17 end do 18!$omp do collapse(3) 19 do i = 1, 10 20 do j = 1, 5 21 do k = j, 20 ! { dg-error "form rectangular iteration space" } 22 end do 23 end do 24 end do 25end 26