Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/c_by_val_4.f @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
C { dg-do compile } C Tests the fix for PR30888, in which the dummy procedure would C generate an error with the %VAL argument, even though it is C declared EXTERNAL. C C Contributed by Peter W. Draper <p.w.draper@durham.ac.uk> C SUBROUTINE VALTEST( DOIT ) EXTERNAL DOIT INTEGER P INTEGER I I = 0 P = 0 CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" } CALL DOIT( I ) CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" } END