blob: 83b6dba7a76545fa97c23d918f5c86ebe3184046 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! 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
|