nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / coverage.f90
blobe0800f869c17ee1731372903bcc30ef1c0a475fa
1 ! { dg-do compile }
2 ! { dg-additional-options "-fprofile-arcs -ftest-coverage" }
4 ! PR fortran/95847
6 module foo
7 contains
8 subroutine sbr()
9 end subroutine sbr
10 end module foo
12 function foo_suite() result(suite)
13 use foo
14 integer :: bar
15 integer :: res
16 res = bar(sbr)
17 end function foo_suite