fmt.c line 95 segfaults

Robert Williams bob@bob.usuf2.usuhs.mil
Mon Mar 30 23:39:00 GMT 1998


I should have added that the call in g94 that leads to
this segfault at ml0.f line 152  is

        Write(IOut,1030) L0Name(1:LinEnd(L0Name))
 1030 Format(' Entering Gaussian System, Link 0=',A)

where L0Name is
"/usr/local/src/g94-linux/g94/./g94"
and IOut=6

I'll track it through wsfe.c tomorrow.


Robert Williams wrote:

> I've compiled g94-verD.4 without errors on an alpha PC164
> with egcs-980321.  At runtime:
>
> bob@bob[92] gdb ./g94
> 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 < tests/com/test000.com
> Starting program: /usr/local/src/g94-linux/g94/./g94 <
> tests/com/test000.com
>
> Program received signal SIGSEGV, Segmentation fault.
> 0x12001ce74 in f_s (s=0x0, curloc=0) at fmt.c:95
> 95              skip(s);
>
> (gdb) bt
> #0  f_s (s=0x0, curloc=0) at fmt.c:95
> #1  0x12001d7a8 in pars_f (s=0x0) at fmt.c:370
> #2  0x120022418 in s_wsfe (a=0x120125c90) at wsfe.c:72
> #3  0x120002638 in MAIN__ () at ml0.f:152
> #4  0x12001b7ac in main (argc=0, argv=0x0) at main.c:128
>
> .............
> /usr/local/src/egcs-980321/libf2c/libI77/fmt.c
> ............
> #ifdef KR_headers
> char *f_s(s,curloc) char *s;
> #else
> char *f_s(char *s, int curloc)
> #endif
> {
>         skip(s);
>         if(*s++!='(')
>         {
>                 return(NULL);
>         }
> .............
>
> Any ideas?
>
> --
> Bob Williams, http://bob.usuf2.usuhs.mil/



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






More information about the Gcc-bugs mailing list