g77.f-torture/execute/io1.f execution -O1 -mabi=64 fails

["Billinghurst, David (RTD)" <David dot Billinghurst at riotinto dot com dot au>]

System: mips-sgi-irix6.2
Compiler: egcs-19981101 g77
Problem: test g77.f-torture/execute/io1.f execution -O1 -mabi=64 fails
Reproduce by: /usr/local/tmp/egcs-19981101/bin/g77 -v -mabi=64 -O1 io1.f 

Comments:  
	   Default abi passes
	   -mabi=64 -O0 compilation fails 
	   -mabi=64 execution fails with other levels of optimisation	   

Compiler output:

cru200:58%/usr/local/tmp/egcs-19981101/bin/g77 -v -mabi=64 -O1 -o io1
/exd2/billingd/src/egcs-19981101/gcc/testsuite/g77.f-torture/execute/io1.f
g77 version egcs-2.92.18 19981101 (gcc2 ss-980609 experimental) (from
FSF-g77 version 0.5.24-19980804)
Driving: /usr/local/tmp/egcs-19981101/bin/g77 -v -mabi=64 -O1 -o io1
/exd2/billingd/src/egcs-19981101/gcc/testsuite/g77.f-torture/execute/io1.f
-lg2c -lm
Reading specs from
/usr/local/tmp/egcs-19981101/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.92.18/specs
gcc version egcs-2.92.18 19981101 (gcc2 ss-980609 experimental)
 /usr/local/tmp/egcs-19981101/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.92.18/f771
/exd2/billingd/src/egcs-19981101/gcc/testsuite/g77.f-torture/execute/io1.f
-quiet -dumpbase io1.f -mabi=64 -O1 -version -fversion -o
/var/tmp/ccptrlH3.s
GNU F77 version egcs-2.92.18 19981101 (gcc2 ss-980609 experimental)
(mips-sgi-irix6.2) compiled by GNU C version egcs-2.92.18 19981101 (gcc2
ss-980609 experimental).
GNU Fortran Front End version 0.5.24-19980804
 /usr/bin/as -O2 -g0 -64 -nocpp -show -G 0 -w -o /var/tmp/ccoGv3c6.o
/var/tmp/ccptrlH3.s
/usr/bin/../lib32/cmplrs/as -O2 -g0 -64 -nocpp -show -G 0 -w -o
/var/tmp/ccoGv3c6.o /var/tmp/ccptrlH3.s
/usr/lib32/cmplrs/asm -EB -pic2 -elf -O2 -g0 -G0 -w -mips4 -64 -t5_ll_sc_bug
/var/tmp/ccptrlH3.s -o /var/tmp/ccoGv3c6.o 
 
/usr/local/tmp/egcs-19981101/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.92.18/colle
ct2 -call_shared -no_unresolved -init __do_global_ctors -fini
__do_global_dtors -_SYSTYPE_SVR4 -woff 131 -64 -o io1
/usr/lib64/mips3/crt1.o
/usr/local/tmp/egcs-19981101/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.92.18/mabi=
64/crtbegin.o
-L/usr/local/tmp/egcs-19981101/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.92.18/mab
i=64
-L/usr/local/tmp/egcs-19981101/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.92.18
-L/usr/bin -L/usr/local/tmp/egcs-19981101/lib/mabi=64
-L/usr/local/tmp/egcs-19981101/lib /var/tmp/ccoGv3c6.o -lg2c -lm
-dont_warn_unused -lgcc -warn_unused -L/usr/lib64/mips3 -L/usr/lib64
-dont_warn_unused -lc -warn_unused -dont_warn_unused -lgcc -warn_unused
/usr/local/tmp/egcs-19981101/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.92.18/mabi=
64/crtend.o /usr/lib64/mips3/crtn.o
ld: WARNING 84: /usr/lib64/libm.so is not used for resolving any symbol.

Program output

cru200:59%io1
list in: end of file
apparent state: unit 90 named /var/tmp/fort.AAAa001sm
last format: list io
lately reading sequential formatted external IO
Abort (core dumped)

dbx core analysis

ru200:60%dbx io1 core
dbx version 7.1 Dec  3 1996 17:03:19
Core from signal SIGABRT: Abort (see abort(3c))
(dbx) where
>  0 _kill(0x1e32, 0x6, 0xffffffacb8, 0x0, 0x5, 0x1, 0x4, 0x0)
["/xlv23/patches/1918/work/irix/lib/libc/libc_64_M4/signal/kill.s":15,
0xda6ad58]
   1 _raise(0x6, 0x6, 0xffffffacb8, 0x0, 0x5, 0x1, 0x4, 0x0)
["/xlv23/patches/1918/work/irix/lib/libc/libc_64_M4/signal/raise.c":25,
0xda6b460]
   2 abort(0x1e32, 0x6, 0xffffffacb8, 0x0, 0x5, 0x1, 0x0, 0x0)
["/xlv23/patches/1918/work/irix/lib/libc/libc_64_M4/gen/abort.c":38,
0xd9c8db8]
   3 sig_die(s = 0x1e32, kill = 1)
["/exd2/billingd/obj/egcs-19981101/mips-sgi-irix6.2/mabi=64/libf2c/libF77/..
/../../../../../src/egcs-19981101/libf2c/libF77/sig_die.c":34, 0x1000b980]
   4 f__fatal(n = 0, s = 0x6)
["/exd2/billingd/obj/egcs-19981101/mips-sgi-irix6.2/mabi=64/libf2c/libI77/..
/../../../../../src/egcs-19981101/libf2c/libI77/err.c":179, 0x100039cc]
   5 l_read(number = 0x1001e038, ptr = 0xffffffae24 = "", len = 4, type = 3)
["/exd2/billingd/obj/egcs-19981101/mips-sgi-irix6.2/mabi=64/libf2c/libI77/..
/../../../../../src/egcs-19981101/libf2c/libI77/lread.c":570, 0x10008f68]
   6 do_lio(type = 0x1cba, number = 0x6, ptr = 0xffffffacb8 = "", len = 0)
["/exd2/billingd/obj/egcs-19981101/mips-sgi-irix6.2/mabi=64/libf2c/libI77/..
/../../../../../src/egcs-19981101/libf2c/libI77/dolio.c":16, 0x1000ba98]
   7 <Unknown>() [< unknown >, 0x10002f8c]
(dbx)