%cat toto.f
dimension x(3)
call glu(3,x)
print *,x(1)
call sglu(x)
print *,x(2)
end
subroutine glu(n,a)
dimension a(n)
a(1)=1.
return
entry sglu(a)
a(2)=2.
end
What do you think of this "small" Fortran program
according Fortran77 / Fortran90 norms ?
HP Fortran90 version 1. No compilation error / Output is 1. + Error
messages
Fortran90 MIPSpro version 7.2 No compilation error / Output is 1. and 2.
Nag Fortran90 version 2.2 No compilation error /Output is 1. and 2.
Thank you for your comments
Christian de Polignac
Institut Laue Langevin
156 X
38042 Grenoble Cedex France
e-mail : [log in to unmask]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|