llvm/flang/test/Lower/OpenMP/infinite-loop-in-construct.f90

! 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