Problem with zeros.

[Tobias Burnus]

Hi Steve,

Steve Kargl wrote:
> troutmask:kargl[205] gfc -o z -O a.f
> troutmask:kargl[206] ./z
>   1.4012985E-45  1.4012985E-45  1.4012985E-45  1.4012985E-45
>   
Well, here it does not work. I wonder why the systems are that different.

Tobias

tob@archimedes:/dev/shm> cat xx2.f90
       program a
       real x(2), y(2)
       open(unit=10,file='data')
       read(10,*) x
       y = x
       print *, x, y
       end
tob@archimedes:/dev/shm> cat data
9.999e-46 9.999e-46
tob@archimedes:/dev/shm> gfortran xx2.f90 && ./a.out
At line 4 of file xx2.f90 (unit = 10, file = 'data')
Fortran runtime error: Range error during floating point read
tob@archimedes:/dev/shm> gfortran-4.2 xx2.f90 && ./a.out
At line 4 of file xx2.f90
Fortran runtime error: Range error during floating point read
tob@archimedes:/dev/shm> gfortran-4.1 xx2.f90 && ./a.out
At line 4 of file xx2.f90
Fortran runtime error: Range error during floating point read
tob@archimedes:/dev/shm> gfortran-4.1 -v 2>&1 |grep -E 'Target|gcc version'
Target: x86_64-suse-linux
gcc version 4.1.3 20070521 (prerelease) (SUSE Linux)
tob@archimedes:/dev/shm> gfortran-4.2 -v 2>&1 |grep -E 'Target|gcc version'
Target: x86_64-suse-linux
gcc version 4.2.1 20070604 (prerelease) (SUSE Linux)
tob@archimedes:/dev/shm> gfortran -v 2>&1 |grep -E 'Target|gcc version'
Target: x86_64-unknown-linux-gnu
gcc version 4.3.0 20070719 (experimental)