Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!udel!princeton!grendel.Princeton.EDU
From: rhl@grendel.Princeton.EDU (Robert Lupton (the Good))
Newsgroups: comp.lang.fortran
Subject: Implicit parameters in Sun 1.3.1 Fortran: Bug
Message-ID: <6004@idunno.Princeton.EDU>
Date: 6 Feb 91 18:47:05 GMT
Sender: news@idunno.Princeton.EDU
Organization: Princeton University, Princeton, New Jersey
Lines: 20

We have recently installed Sun's fortran version 1.3.1 and one of my
users came across the following:

In the programme

	implicit real*8 (a-z)
	parameter (PI=3.14159)
	print *,dcos(PI)
	end

the compiler complains about a type mismatch for dcos. I don't mind too
much (serve him right for not using implicit undefined), and I can see
how it could come about (I suspect that the compiler treats parameter as
a macro definition; a suspicion strengthened by the fact that gdb
doesn't know anything about a variable pi), but I think that the code is
valid fortran. But then again, I haven't written fortran in 8 years, and
I checked in a fortran book not the ANSI standard, so maybe it really is
illegal. 
 
				Robert