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