| ! { dg-do link } | |
| ! PR fortran/40011 | |
| ! | |
| ! Contributed by Joost VandeVondele | |
| ! | |
| ! | |
| ! Before no "one" function was generated with -fwhole-file. | |
| ! | |
| ! | |
| SUBROUTINE one ( ) | |
| END SUBROUTINE one | |
| SUBROUTINE two ( ) | |
| END SUBROUTINE two | |
| MODULE mod | |
| CONTAINS | |
| SUBROUTINE three ( ) | |
| CALL two ( ) | |
| END SUBROUTINE three | |
| SUBROUTINE four ( ) | |
| CALL one ( ) | |
| END SUBROUTINE four | |
| END MODULE mod | |
| END |