summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/whole_file_3.f90
blob: 242280ccf53dbaa7a1576ae0db6175db8bf51db8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
! { dg-do compile }
! { dg-options "-fwhole-file" }
! Tests the fix for PR26227 in which the interface mismatches
! below were not detected.
!
! Contributed by Andrew Pinski <pinskia@gcc.gnu.org>
!
      SUBROUTINE PHLOAD (READER,*)
      IMPLICIT NONE
      EXTERNAL         READER
      CALL READER (*1)
 1    RETURN 1
      END SUBROUTINE

      program test
      EXTERNAL R
      call PHLOAD (R, 1) ! { dg-warning "Missing alternate return spec" }
      CALL PHLOAD (R, 2) ! { dg-warning "Missing alternate return spec" }
      CALL PHLOAD (R, *999) ! This one is OK
 999  continue
      END program test