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