gcc/testsuite/gfortran.dg/coverage.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! { dg-do compile }
! { dg-additional-options "-fprofile-arcs -ftest-coverage" }
!
! PR fortran/95847
!
module foo
contains
    subroutine sbr()
    end subroutine sbr
end module foo

function foo_suite() result(suite)
   use foo
   integer :: bar
   integer :: res
   res = bar(sbr)
end function foo_suite