This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

PATCH: Re: Fortran program crash in libg2c with latest snaps


>>>>> "Nicolas" == Nicolas Moeri <moeri@dma.epfl.ch> writes:

    Nicolas> Did you receive any suggestion or patch to solve this
    Nicolas> problem ?  Best regards,

No, but I looked at the sources and reverted part of the last change
to wsfe.c, which did cure the problem. I append the patch together
with a patch which provides the testcase.

-- kga
-------------------------------------------------------------------------
Klaus-Georg Adams        Email: Klaus-Georg.Adams@chemie.uni-karlsruhe.de
Institut f. Anorg. Chemie, Lehrstuhl II            Tel: 49(0)721 608 3485
Universität Karlsruhe, D-76128 Karlsruhe
-------------------------------------------------------------------------

Index: wsfe.c
===================================================================
RCS file: /egcs/carton/cvsfiles/egcs/libf2c/libI77/wsfe.c,v
retrieving revision 1.4
diff -u -p -u -r1.4 wsfe.c
--- wsfe.c	1998/06/23 14:37:15	1.4
+++ wsfe.c	1998/07/02 07:59:29
@@ -57,6 +57,7 @@ integer s_wsfe(cilist *a)	/*start*/
 	f__nonl = 0;
 	f__scale=0;
 	f__fmtbuf=a->cifmt;
+	f__curunit = &f__units[a->ciunit];
 	f__cf=f__curunit->ufd;
 	if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
 	f__putn= x_putc;
--- /dev/null   Mon Jul 18 01:46:18 1994
+++ gcc/testsuite/g77.f-torture/execute/wtest.f Wed Jul  1 14:17:02 1998
@@ -0,0 +1,3 @@
+      program wtest
+      print '(a)', 'Hello world!'
+      end


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]