29 lines · plain
1! RUN: bbc -fopenmp -o - %s | FileCheck %s2 3! Check that this test can be lowered successfully.4! See https://github.com/llvm/llvm-project/issues/743485 6! CHECK-LABEL: func.func @_QPsb7! CHECK: omp.parallel8! CHECK: cf.cond_br %{{[0-9]+}}, ^bb1, ^bb29! CHECK-NEXT: ^bb1: // pred: ^bb010! CHECK: cf.br ^bb211! CHECK-NEXT: ^bb2: // 2 preds: ^bb0, ^bb112! CHECK: cf.br ^bb313! CHECK-NEXT: ^bb3: // 2 preds: ^bb2, ^bb314! CHECK: cf.br ^bb315! CHECK-NEXT: }16 17subroutine sb(ninter, numnod)18 integer :: ninter, numnod19 integer, dimension(:), allocatable :: indx_nm20 21 !$omp parallel22 if (ninter>0) then23 allocate(indx_nm(numnod))24 endif25 220 continue26 goto 22027 !$omp end parallel28end subroutine29