% cat rwinfnan1.f
character*50 line
real arg, s, x, nan, inf
logical isnan, ispinf, isninf
isnan(arg) = (arg .ne. arg)
isninf(arg) = (arg .eq. -inf)
ispinf(arg) = (arg .eq. inf)
open (unit = 1, file='rwinfnan.tmp',
x access = 'sequential', form = 'formatted')
s = 0.0
x = s
inf = 1.0/s
nan = x/s
write (1,*) nan
write (1,*) inf
rewind (1)
read (1,'(a)') line
write (6,*) 'NaN was written as: ', line
read (1,'(a)') line
write (6,*) 'Inf was written as: ', line
rewind (1)
read (1,*) x
if (isnan(x)) then
write (6,*) 'NaN was correctly input'
else
write (6,*) 'NaN was INCORRECTLY input as ', x
endif
read (1,*) x
if (x .eq. x) then
write (6,*) 'Inf was correctly input'
else
write (6,*) 'Inf was INCORRECTLY input as ', x
endif
end
========================================================================
Apple PowerMac G3 (267 MHz); GNU/Linux 2.2.18-4hpmac
% g77 rwinfnan1.f && ./a.out
NaN was written as: NAN
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
========================================================================
Apple PowerMac G3 (267 MHz); Yellow Dog GNU/Linux 2.4.10-12a
% g77 rwinfnan1.f && ./a.out
NaN was written as: NAN
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
========================================================================
Apple Power Macintosh (233 MHz); GNU/Linux 2.2.15pre9
% g77 rwinfnan1.f && ./a.out
NaN was written as: NAN
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
========================================================================
Compaq AlphaServer DS20 Sierra/667 (EV?? 21264 CPU, 667 MHz, ????MB RAM); OSF/1 5.0
% f77 -fpe3 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
forrtl: severe (59): list-directed I/O syntax error, unit 1, file /uufs/inscc.utah.edu/common/home/mthnhb/rwinfnan.tmp
0: __FINI_00_remove_gp_range [0x3ff81a6c374]
1: __FINI_00_remove_gp_range [0x3ff81a6c8f4]
2: __FINI_00_remove_gp_range [0x3ff81a94e68]
3: __FINI_00_remove_gp_range [0x3ff81a94538]
4: main$rwinfnan_ [rwinfnan1.f: 27, 0x120001dd0]
5: main [for_main.c: 203, 0x120001a94]
6: __start [0x120001a08]
% f90 -fpe3 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
forrtl: severe (59): list-directed I/O syntax error, unit 1, file /uufs/inscc.utah.edu/common/home/mthnhb/rwinfnan.tmp
0: __FINI_00_remove_gp_range [0x3ff81a6c374]
1: __FINI_00_remove_gp_range [0x3ff81a6c8f4]
2: __FINI_00_remove_gp_range [0x3ff81a94e68]
3: __FINI_00_remove_gp_range [0x3ff81a94538]
4: main$rwinfnan_ [rwinfnan1.f: 27, 0x120001dd0]
5: main [for_main.c: 203, 0x120001a94]
6: __start [0x120001a08]
% f95 -fpe3 rwinfnan1.f && ./a.out
f90: Warning: rwinfnan1.f, line 3: This statement function has not been used. [ISPINF]
logical isnan, ispinf, isninf
---------------------^
f90: Warning: rwinfnan1.f, line 3: This statement function has not been used. [ISNINF]
logical isnan, ispinf, isninf
-----------------------------^
NaN was written as: NaN
Inf was written as: Infinity
forrtl: severe (59): list-directed I/O syntax error, unit 1, file /uufs/inscc.utah.edu/common/home/mthnhb/rwinfnan.tmp
0: __FINI_00_remove_gp_range [0x3ff81a6c374]
1: __FINI_00_remove_gp_range [0x3ff81a6c8f4]
2: __FINI_00_remove_gp_range [0x3ff81a94e68]
3: __FINI_00_remove_gp_range [0x3ff81a94538]
4: main$rwinfnan_ [rwinfnan1.f: 27, 0x120001dd0]
5: main [for_main.c: 203, 0x120001a94]
6: __start [0x120001a08]
========================================================================
DEC Alpha 4100-5/266 (4 CPUs, 466 MHz, 2GB RAM); OSF/1 4.0F
% g77 -mieee rwinfnan1.f && ./a.out
NaN was written as: NaNQ
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
% f77 -fpe3 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
forrtl: severe (59): list-directed I/O syntax error, unit 1, file /a/suncore0/export/home/0074/sy/beebe/rwinfnan.tmp
% f90 -fpe3 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
forrtl: severe (59): list-directed I/O syntax error, unit 1, file /a/suncore0/export/home/0074/sy/beebe/rwinfnan.tmp
% f95 -fpe3 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
forrtl: severe (59): list-directed I/O syntax error, unit 1, file /a/suncore0/export/home/0074/sy/beebe/rwinfnan.tmp
========================================================================
DEC Alphastation 200 4/100 (1 CPU, 100 MHz Alpha 21064 EV4, 64MB RAM); GNU/Linux 2.2.19-6.2.1
% f77 -mieee rwinfnan1.f && ./a.out
NaN was written as: NAN
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
You have new mail.
% fort -fpe3 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
forrtl: severe (59): list-directed I/O syntax error, unit 1, file /a/suncore0/export/home/0074/sy/beebe/rwinfnan.tmp
========================================================================
HP 9000/712 (80 MHz PA-RISC 1.1 7100LC); HP-UX 10.20
% f77 rwinfnan1.f && ./a.out
NaN was written as: ?.
Inf was written as: ++.
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
IOT trap (core dumped)
========================================================================
IBM RS6000 43P-132 (133 MHz); AIX 4.2
% g77 rwinfnan1.f && ./a.out
NaN was written as: NaNQ
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
% f77 -qfixed rwinfnan1.f && ./a.out
NaN was written as: NaNQ
Inf was written as: INF
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'a' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
NaN was INCORRECTLY input as 0.0000000000E+00
1525-097 A READ statement using decimal base input found the invalid digit 'I' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'F' in the input file. The program will recover by assuming a zero in its place.
Inf was correctly input
% xlf90 -qfixed rwinfnan1.f && ./a.out
NaN was written as: NaNQ
Inf was written as: INF
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'a' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
NaN was INCORRECTLY input as 0.0000000000E+00
1525-097 A READ statement using decimal base input found the invalid digit 'I' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'F' in the input file. The program will recover by assuming a zero in its place.
Inf was correctly input
========================================================================
IBM SP/2 AIX 4.3
% f77 rwinfnan1.f && ./a.out
** _main === End of Compilation 1 ===
1501-510 Compilation successful for file rwinfnan1.f.
NaN was written as: NaNQ
Inf was written as: INF
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'a' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
NaN was INCORRECTLY input as 0.0000000000E+00
1525-097 A READ statement using decimal base input found the invalid digit 'I' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'F' in the input file. The program will recover by assuming a zero in its place.
Inf was correctly input
% g77 rwinfnan1.f && ./a.out
NaN was written as: NaNQ
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
% xlf90 -qfixed rwinfnan1.f && ./a.out
** _main === End of Compilation 1 ===
1501-510 Compilation successful for file rwinfnan1.f.
NaN was written as: NaNQ
Inf was written as: INF
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'a' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
NaN was INCORRECTLY input as 0.0000000000E+00
1525-097 A READ statement using decimal base input found the invalid digit 'I' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'F' in the input file. The program will recover by assuming a zero in its place.
Inf was correctly input
% xlf95 -qfixed rwinfnan1.f && ./a.out
** _main === End of Compilation 1 ===
1501-510 Compilation successful for file rwinfnan1.f.
NaN was written as: NaNQ
Inf was written as: INF
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'a' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
NaN was INCORRECTLY input as 0.0000000000E+00
1525-097 A READ statement using decimal base input found the invalid digit 'I' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'N' in the input file. The program will recover by assuming a zero in its place.
1525-097 A READ statement using decimal base input found the invalid digit 'F' in the input file. The program will recover by assuming a zero in its place.
Inf was correctly input
========================================================================
Intel Pentium III (600 MHz); GNU/Linux 2.2.17-14smp (Red Hat 6.2)
% g77 rwinfnan1.f && ./a.out
NaN was written as: NAN
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
% lf95 rwinfnan1.f && ./a.out
A floating division exception was detected.
Error occurs at or near line 13 of MAIN__
% pgf77 rwinfnan1.f && ./a.out
NaN was written as: -nan
Inf was written as: inf
NaN was INCORRECTLY input as 0.0000000E+00
PGFIO-F-225/list-directed read/unit=1/lexical error-- unknown token type.
File name = rwinfnan.tmp formatted, sequential access record = 2
In source file rwinfnan1.f, at line number 34
% pghpf rwinfnan1.f && ./a.out
NaN was written as: -nan
Inf was written as: inf
NaN was INCORRECTLY input as 0.0000000E+00
PGFIO-F-225/list-directed read/unit=1/lexical error-- unknown token type.
File name = rwinfnan.tmp formatted, sequential access record = 2
In source file rwinfnan1.f, at line number 34
% pgf90 rwinfnan1.f && ./a.out
NaN was written as: -nan
Inf was written as: inf
NaN was INCORRECTLY input as 0.0000000E+00
PGFIO-F-225/list-directed read/unit=1/lexical error-- unknown token type.
File name = rwinfnan.tmp formatted, sequential access record = 2
In source file rwinfnan1.f, at line number 34
========================================================================
Intel Pentium II (2 CPUs, 450 MHz); FreeBSD 4.2.0
% g77 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Inf
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
========================================================================
SGI IRIX 6.5:
% f90 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
lib-4190 : UNRECOVERABLE library error
Encountered during a list-directed READ from unit 1
Fortran unit 1 is connected to a sequential formatted text file:
"rwinfnan.tmp"
% f77 rwinfnan1.f && ./a.out
NaN was written as: nan
Inf was written as: Inf
NaN was INCORRECTLY input as 0.0000000E+00
Inf was correctly input
% g77 rwinfnan1.f && ./a.out
ld32: WARNING 84 : /usr/lib32/libm.so is not used for resolving any symbol.
NaN was written as: NAN0X07FFFFE00
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
========================================================================
Sun Solaris 2.7:
% g77 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)
% f77 rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Inf
NaN was correctly input
% f95 -ftrap=%none rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Inf
****** FORTRAN RUN-TIME SYSTEM ******
Error 1084: unexpected character in real value
Location: the READ statement at line 27 of "rwinfnan1.f"
Unit: 1
File: rwinfnan.tmp
Input: NaN
^
% nagf90 -fixed -ieee=full rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
Invalid input for real editing
Program terminated by fatal I/O error
Abort (core dumped)
% nagf95 -fixed -ieee=full rwinfnan1.f && ./a.out
NaN was written as: NaN
Inf was written as: Infinity
Invalid input for real editing
Program terminated by fatal I/O error
Abort (core dumped)
========================================================================
Sun SPARC 10/51; GNU/Linux 2.2.19-6.2.1 (Red Hat 6.2)
% g77 rwinfnan1.f && ./a.out
NaN was written as: NAN
Inf was written as: INF
invalid number: incomprehensible list input
apparent state: unit 1 named rwinfnan.tmp
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)