69a53b8d54
PR #160283 uses `Unwrap` to detect a `continue` statement, but it applied it on the loop body itelf which sometimes finds a trailing continue statement, but not always. Apply `Unwrap` on the last body statement instead, where the `continue` is expected. Fixes #161529
20 lines
511 B
Fortran
20 lines
511 B
Fortran
! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s
|
|
|
|
program wsloop_collapse_continue
|
|
integer i, j
|
|
|
|
! CHECK: omp.wsloop {{.*}} {
|
|
! CHECK: omp.loop_nest ({{.*}}) : i32 = ({{.*}}) to ({{.*}}) inclusive step ({{.*}}) collapse(2) {
|
|
!$omp do collapse(2)
|
|
do 50 i = 1, 42
|
|
do 51 j = 1, 84
|
|
! CHECK: fir.call @_FortranAioOutputInteger32(
|
|
print *, i
|
|
! CHECK: fir.call @_FortranAioOutputInteger32(
|
|
print *, j
|
|
51 continue
|
|
50 continue
|
|
!$omp end do
|
|
|
|
end program wsloop_collapse_continue
|