%cat test.f90
SUBROUTINE SP( B, LDB )
INTEGER, INTENT(IN) :: LDB
REAL, INTENT(INOUT) :: B(*)
INTERFACE
SUBROUTINE S( B, LDB )
INTEGER, INTENT(IN) :: LDB
REAL, INTENT(INOUT) :: B(LDB,*)
END SUBROUTINE S
END INTERFACE
CALL S( B, LDB)
END SUBROUTINE SP
-Neither HP Fortran90 compiler, f95 Nag , nor Mips Fortran90
gives a warning with this program.
-foresys which is a tool for Fortran users gives the message :
Warning too few dimensions supplied for argument 1 when calling S for B.
Do you think this warning is correct and/or useful.
Thank you
--
Christian de Polignac
Institut Laue Langevin
156 X
38042 Grenoble Cedex France
e-mail : [log in to unmask]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|