This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
PATCH: Re: Fortran program crash in libg2c with latest snaps
- To: moeri at dma dot epfl dot ch
- Subject: PATCH: Re: Fortran program crash in libg2c with latest snaps
- From: Klaus-Georg Adams <Klaus-Georg dot Adams at chemie dot uni-karlsruhe dot de>
- Date: Thu, 2 Jul 1998 10:08:22 +0200
- Cc: egcs-patches at cygnus dot com, burley at gnu dot org
>>>>> "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