Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/whole_file_19.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900 (2017-10-27)
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! { dg-options "-fwhole-file" }
3 ! Test the fix for pr40011 comment #42, in which the subroutine
4 ! would just get lost with -fwhole-file.
5 !
6 ! Contributed by Joost VandeVandole <jv244@cam.ac.uk>
7 !
8 SUBROUTINE c()
9 CALL a()
10 END SUBROUTINE c
11
12 SUBROUTINE a()
13 END SUBROUTINE a
14
15 MODULE M
16 CONTAINS
17 SUBROUTINE b()
18 CALL c()
19 END SUBROUTINE
20 END MODULE
21
22 USE M
23 CALL b()
24 END