gcc/testsuite/gfortran.dg/c_by_val_4.f

   1 C { dg-do compile }
   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
   4 C declared EXTERNAL.
   5 C
   6 C Contributed by Peter W. Draper <p.w.draper@durham.ac.uk>
   7 C
   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