blob: f02d0e5ccc53c217fdeaba457a70b7a6a2508a61 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! 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: // 2 preds: ^bb0, ^bb1
! CHECK: cf.br ^bb3
! CHECK-NEXT: ^bb3: // 2 preds: ^bb2, ^bb3
! CHECK: cf.br ^bb3
! 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
|
