Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/c_by_val_4.f @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +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