------- Comment #1 from burnus at gcc dot gnu dot org 2007-02-20 14:01 -------
gfortran rejects the procedure with:
SUBROUTINE S1(F1)
1
Error: Symbol 'f1' at (1) has no IMPLICIT type
The error goes away when the return value of f1 has a type, e.g.
INTERFACE
FUNCTION F1()
real :: f1
END FUNCTION F1
END INTERFACE
Thus it boils down to the question: Is it allowed to have dummy procedure which
unknown return type, if IMPLICIT NONE is specified?
NAG f95, g95 and ifort compile it without any error.
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |burnus at gcc dot gnu dot
| |org
Keywords| |rejects-valid
Summary|incorrect error message for |procedure with dummy
|valid code |procedure f1 rejected with
| |implicit none
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30883
