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