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