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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
C { dg-do compile }
2
C Tests the fix for PR30888, in which the dummy procedure would
3
C generate an error with the %VAL argument, even though it is
4
C declared EXTERNAL.
5
C
6
C Contributed by Peter W. Draper <p.w.draper@durham.ac.uk>
7
C
8
      SUBROUTINE VALTEST( DOIT )
9
      EXTERNAL DOIT
10
      INTEGER P
11
      INTEGER I
12
      I = 0
13
      P = 0
14
      CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" }
15
      CALL DOIT( I )
16
      CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" }
17
      END

powered by: WebSVN 2.1.0

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