Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uwm.edu!ogicse!unmvax!ariel.unm.edu!ghostwheel.unm.edu!john
From: john@ghostwheel.unm.edu (John Prentice)
Newsgroups: comp.lang.fortran
Subject: Re: Implicit parameters in Sun 1.3.1 Fortran: Bug
Message-ID: <1991Feb07.225518.22499@ariel.unm.edu>
Date: 7 Feb 91 22:55:18 GMT
Organization: University of New Mexico, Albuquerque, NM
Lines: 29

In article <1139@nikhefh.nikhef.nl> t19@nikhefh.nikhef.nl (Geert J v Oldenborgh) 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....
>
>Common error: how about adding
>	implicit real*8 (A-Z)
>If you mix cases - beware that Fortran may mix them too!

This shouldn't matter, Fortran is not supposed to be case sensitive,
at least for variable names (someone corrrect me if I am wrong).
I would make one comment however, it is unnecessary to use dcos instead
of cos.  Assuming that the compiler is working correctly (a big 
assumption with 1.3.1), the generic name should suffice.  As far as this
bug, you might try turning off the optimization.  We have had terrible
trouble with bugs in 1.3.1 when running with -fast or -O3 level
optimization.  Who knows, it might help!

John
--
John K. Prentice    john@unmfys.unm.edu (Internet)
Dept. of Physics and Astronomy, University of New Mexico, Albuquerque, NM, USA
Computational Physics Group, Amparo Corporation, Albuquerque, NM, USA