27 lines
693 B
Fortran
27 lines
693 B
Fortran
|
! RUN: bbc -fopenmp -o - %s | FileCheck %s
|
||
|
|
|
||
|
|
! Check that this test can be lowered successfully.
|
||
|
|
! See https://github.com/llvm/llvm-project/issues/74348
|
||
|
|
|
||
|
|
! CHECK-LABEL: func.func @_QPsb
|
||
|
|
! CHECK: omp.parallel
|
||
|
|
! CHECK: cf.cond_br %{{[0-9]+}}, ^bb1, ^bb2
|
||
|
|
! CHECK-NEXT: ^bb1: // pred: ^bb0
|
||
|
|
! CHECK: cf.br ^bb2
|
||
|
|
! CHECK-NEXT: ^bb2: // 3 preds: ^bb0, ^bb1, ^bb2
|
||
|
|
! CHECK-NEXT: cf.br ^bb2
|
||
|
|
! CHECK-NEXT: }
|
||
|
|
|
||
|
|
subroutine sb(ninter, numnod)
|
||
|
|
integer :: ninter, numnod
|
||
|
|
integer, dimension(:), allocatable :: indx_nm
|
||
|
|
|
||
|
|
!$omp parallel
|
||
|
|
if (ninter>0) then
|
||
|
|
allocate(indx_nm(numnod))
|
||
|
|
endif
|
||
|
|
220 continue
|
||
|
|
goto 220
|
||
|
|
!$omp end parallel
|
||
|
|
end subroutine
|