This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: FORTAN: PATCH FOR PR #10843
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- To: bdavis <bdavis9659 at comcast dot net>
- Cc: gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Tue, 20 May 2003 22:17:52 +0200
- Subject: Re: FORTAN: PATCH FOR PR #10843
- Organization: Moene Computational Physics, Maartensdijk, The Netherlands
- References: <3EC808E4.8030809@comcast.net>
bdavis wrote:
The problem:
GO TO 3
3 CONTINUE
END
tested with no additional fortran test suite failures on i386/linux.
--bud davis
------------------------------------------------------------------------
Index: gcc/gcc/f/sta.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/f/sta.c,v
retrieving revision 1.11
diff -c -3 -p -r1.11 sta.c
*** gcc/gcc/f/sta.c 17 Oct 2001 22:34:52 -0000 1.11
--- gcc/gcc/f/sta.c 18 May 2003 22:15:05 -0000
*************** ffesta_second_ (ffelexToken t)
*** 954,959 ****
--- 954,960 ----
ffesta_add_possible_nonexec_ ((ffelexHandler) ffestb_dummy);
break;
+ case FFESTR_firstGO:
case FFESTR_firstGOTO:
ffesta_add_possible_exec_ ((ffelexHandler) ffestb_goto);
break;
It's more complicated than that - you have to make sure that it's
actually followed by "TO". See somewhat more to the beginning of the
function on how to handle that - FFESTR_firstEND
--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
GNU Fortran 95: http://gcc-g95.sourceforge.net/ (under construction)