OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [whole_file_3.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { 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 
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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.