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