1! { dg-do link }
2! PR fortran/40011
3!
4! Contributed by Joost VandeVondele
5!
6!
7! Before no "one" function was generated with -fwhole-file.
8!
9!
10SUBROUTINE one ( )
11END SUBROUTINE one
12
13SUBROUTINE two ( )
14END SUBROUTINE two
15
16MODULE mod
17CONTAINS
18  SUBROUTINE three ( )
19    CALL two ( )
20  END SUBROUTINE three
21  SUBROUTINE four ( )
22      CALL one ( )
23  END SUBROUTINE four
24END MODULE mod
25END
26