nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / intent_out_10.f90
blob82e928c98fa991b9ae90413ac6e1d03a07ab9237
1 ! { dg-do compile }
2 ! PR 87395 - this used to ICE
3 module mo
4 integer, save :: x
5 contains
6 subroutine foo
7 x = 42
8 call bar(x)
9 contains
10 subroutine bar(y)
11 integer, intent(out) :: y
12 end subroutine bar
13 end subroutine foo
14 end module mo