gcc/testsuite/gfortran.dg/whole_file_26.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fwhole-program  --param ggc-min-expand=0 --param ggc-min-heapsize=0" }
   3 !
   4 ! PR fortran/45087
   5 !
   6
   7 module INTS
   8   interface
   9     subroutine NEXT
  10     end subroutine NEXT
  11     subroutine VALUE()
  12     end subroutine VALUE
  13   end interface
  14 end module INTS
  15
  16 subroutine NEXT
  17 end subroutine NEXT
  18
  19 subroutine VALUE()
  20   use INTS, only: NEXT
  21   CALL NEXT
  22 end subroutine VALUE
  23
  24 end
  25
  26 ! { dg-final { cleanup-modules "ints" } }