! 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 |