! PR fortran/47331 | |
! { dg-do compile } | |
! { dg-options "-fopenmp" } | |
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 |