1! PR middle-end/51089
2! { dg-do compile }
3! { dg-options "-O -fexceptions -fopenmp" }
4
5subroutine foo
6  real, allocatable, dimension(:) :: s
7  real, dimension(:, :, :), pointer :: t
8  call fn1 (t, s)
9  call fn2 ()
10end subroutine foo
11subroutine bar
12  integer :: i
13!$omp parallel do
14  do i = 1, 10
15  end do
16end subroutine bar
17