! PR middle-end/51089
! { dg-do compile }
! { dg-options "-O -fexceptions -fopenmp" }

subroutine foo
  real, allocatable, dimension(:) :: s
  real, dimension(:, :, :), pointer :: t
  call fn1 (t, s)
  call fn2 ()
end subroutine foo
subroutine bar
  integer :: i
!$omp parallel do
  do i = 1, 10
  end do
end subroutine bar