gcc/testsuite/gfortran.dg/whole_file_26.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
25
26

! { dg-do compile }
! { dg-options "-fwhole-program  --param ggc-min-expand=0 --param ggc-min-heapsize=0" }
!
! PR fortran/45087
!

module INTS
  interface
    subroutine NEXT
    end subroutine NEXT
    subroutine VALUE()
    end subroutine VALUE
  end interface
end module INTS

subroutine NEXT
end subroutine NEXT

subroutine VALUE()
  use INTS, only: NEXT
  CALL NEXT
end subroutine VALUE

end

! { dg-final { cleanup-modules "ints" } }