1! { dg-do compile }
2! { dg-options "-fwhole-program" }
3!
4! PR fortran/45087
5!
6
7module ints
8   INTERFACE
9      SUBROUTINE NOZZLE()
10      END SUBROUTINE NOZZLE
11   END INTERFACE
12end module ints
13
14      SUBROUTINE NOZZLE()
15      END SUBROUTINE NOZZLE
16      program CORTESA
17      USE INTS
18      CALL NOZZLE ()
19      END program CORTESA
20