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
6 C Contributed by Peter W. Draper <p.w.draper@durham.ac.uk>
8 SUBROUTINE VALTEST( DOIT )
14 CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" }
16 CALL DOIT( %VAL( P ) ) ! { dg-warning "Extension: argument list function" }