Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!pacbell.com!ames!skipper!altair!maine From: maine@altair.dfrf.nasa.gov (Richard Maine) Newsgroups: comp.lang.fortran Subject: Re: Implicit parameters in Sun 1.3.1 Fortran: Bug Message-ID: Date: 8 Feb 91 00:23:54 GMT References: <6004@idunno.Princeton.EDU> <1139@nikhefh.nikhef.nl> Sender: news@skipper.dfrf.nasa.gov Organization: NASA Dryden, Edwards, Cal. Lines: 35 In-reply-to: t19@nikhefh.nikhef.nl's message of 7 Feb 91 17:21:34 GMT On 7 Feb 91 17:21:34 GMT, t19@nikhefh.nikhef.nl (Geert J v Oldenborgh) said: Geert> In article <6004@idunno.Princeton.EDU> rhl@grendel.Princeton.EDU (Robert Lupton (the Good)) writes: >We have recently installed Sun's fortran version 1.3.1 and one of my >users came across the following: > > implicit real*8 (a-z) > parameter (PI=3.14159) > print *,dcos(PI) > end > >the compiler complains about a type mismatch for dcos.... Geert> Common error: how about adding Geert> implicit real*8 (A-Z) Geert> If you mix cases - beware that Fortran may mix them too! That possibility occured to me when I saw the original post, but testing reveals that not to be the problem. Interestingly enough, changing the implicit real*8 (a-z) to implicit double precision (a-z) did fix it. Of course, real*8 is non-standard, but Sun's compiler accepts it in most places, and it certainly should have bitched if it didn't like it here. I think this one counts as a bug instead of a user error. (A bug fixed in version 1.4 according to Kieth's post, though I don't have 1.4 to verify first hand). -- -- Richard Maine maine@altair.dfrf.nasa.gov