! { dg-do compile } | |
! { dg-options "-fwhole-file" } | |
! Test the fix for pr40011 comment #42, in which the subroutine | |
! would just get lost with -fwhole-file. | |
! | |
! Contributed by Joost VandeVandole <jv244@cam.ac.uk> | |
! | |
SUBROUTINE c() | |
CALL a() | |
END SUBROUTINE c | |
SUBROUTINE a() | |
END SUBROUTINE a | |
MODULE M | |
CONTAINS | |
SUBROUTINE b() | |
CALL c() | |
END SUBROUTINE | |
END MODULE | |
USE M | |
CALL b() | |
END |