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