20 lines · plain
1! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s2 3program wsloop_collapse_continue4 integer i, j5 6! CHECK: omp.wsloop {{.*}} {7! CHECK: omp.loop_nest ({{.*}}) : i32 = ({{.*}}) to ({{.*}}) inclusive step ({{.*}}) collapse(2) {8 !$omp do collapse(2)9 do 50 i = 1, 4210 do 51 j = 1, 8411! CHECK: fir.call @_FortranAioOutputInteger32(12 print *, i13! CHECK: fir.call @_FortranAioOutputInteger32(14 print *, j15 51 continue16 50 continue17 !$omp end do18 19end program wsloop_collapse_continue20