gcc/testsuite/gfortran.dg/gomp/pr47331.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

! PR fortran/47331
! { dg-do compile }
! { dg-options "-fopenmp -fwhole-file" }

subroutine foo
  !$omp parallel
    call bar ()
  !$omp end parallel
end subroutine foo

subroutine bar
  integer :: k
  do k=1,5
    call baz (k)
  end do
end subroutine bar

subroutine baz (k)
  integer :: k
end subroutine

program pr47331
  call foo
end program pr47331