1C { dg-do compile } 2C Tests the fix for PR30888, in which the dummy procedure would 3C generate an error with the %VAL argument, even though it is 4C declared EXTERNAL. 5C 6C Contributed by Peter W. Draper <p.w.draper@durham.ac.uk> 7C 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 18