------- Comment #9 from burnus at gcc dot gnu dot org 2007-04-05 13:27 -------
This probably will work automatically if inter-file checking is implemented,
but if not, here is an invalid example which should be rejected:
---------
SUBROUTINE PHLOAD (READER,*)
IMPLICIT NONE
EXTERNAL READER
CALL READER (*1)
1 RETURN 1
END SUBROUTINE
program test
EXTERNAL R
call PHLOAD (R, 1)
CALL PHLOAD (R, 2)
END program test
---------
Should give the error (cf. NAG f95):
Error: y.f: Argument no. 2 in reference to PHLOAD from TEST is not a label
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26227
