Hello,
At 00:32 07-12-02 -0500, Jean Vezina wrote:
>To all:
>
>I have the following program:
>
>module test
> integer ::x(4)
>end module
>use test,y=>x
>namelist /a/y
>y=(/1,2,3,4/)
>write(*,nml=a)
>end
>
>1- Is it standard conforming ?
>
>I also tested the code using two compilers:
>
>The first compiler gives the following result
>
> &A
> Y = 1, 2, 3, 4
> /
>
>The second:
>
> &A
> X= 1, 2, 3, 4
> /
>
>The difference between the two is that the first one
>uses the local name as the namelist variable name while
>the second retains the original name. Which is correct ?
>
>Jean Vezina
IMHO the program is correct, but name X should be unknown in the
program, so the second compiler is not correct.
I have the same experience:
One (Absoft) gives X = 1, 2, 3, 4
Another (Salford): Y = 1 2 3 4
Best regards,
\---
Jan van Oosterwijk
Netherlands
mailto:Jan.vanOosterwijk<at>DTO.TUDelft.NL
http://huizen.dto . tudelft.nl/vanOosterwijk/
|