Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/whole_file_3.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
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! { dg-options "-fwhole-file" }
3 ! Tests the fix for PR26227 in which the interface mismatches
4 ! below were not detected.
5 !
6 ! Contributed by Andrew Pinski <pinskia@gcc.gnu.org>
7 !
8 SUBROUTINE PHLOAD (READER,*)
9 IMPLICIT NONE
10 EXTERNAL READER
11 CALL READER (*1)
12 1 RETURN 1
13 END SUBROUTINE
14
15 program test
16 EXTERNAL R
17 call PHLOAD (R, 1) ! { dg-warning "Missing alternate return spec" }
18 CALL PHLOAD (R, 2) ! { dg-warning "Missing alternate return spec" }
19 CALL PHLOAD (R, *999) ! This one is OK
20 999 continue
21 END program test