egcs-980406 g77 bug

[Robert Williams]

g77 still can't run this little program
on axp/Linux:

 bob@bob[44] more junk2.f
      program bomb
      character*10 Name
      Name = 'X'
        Write(6,1000) Name(1:1)
 1000   Format(' Name = ',A)
      stop
      end

bob@bob[45] gdb junk2
GDB is free software and you are welcome to distribute copies of it
 under certain conditions; type "show copying" to see the conditions.
There is absolutely no warranty for GDB; type "show warranty" for
details.
GDB 4.16 (alpha-redhat-linux), Copyright 1996 Free Software Foundation,
Inc...
(gdb) run
Starting program: /usr/local/src/g94-linux/g94/junk2

Program received signal SIGSEGV, Segmentation fault.
0x120002794 in f_s (s=0x0, curloc=0) at fmt.c:95
95              skip(s);
(gdb) bt
#0  0x120002794 in f_s (s=0x0, curloc=0) at fmt.c:95
#1  0x1200030c0 in pars_f (s=0x0) at fmt.c:370
#2  0x120004650 in s_wsfe (a=0x120107030) at wsfe.c:72
#3  0x12000119c in MAIN__ () at junk2.f:4
#4  0x12000146c in main (argc=0, argv=0x0) at main.c:128


--
Bob Williams, http://bob.usuf2.usuhs.mil/