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 7module INTS 8 interface 9 subroutine NEXT 10 end subroutine NEXT 11 subroutine VALUE() 12 end subroutine VALUE 13 end interface 14end module INTS 15 16subroutine NEXT 17end subroutine NEXT 18 19subroutine VALUE() 20 use INTS, only: NEXT 21 CALL NEXT 22end subroutine VALUE 23 24end 25