FORTAN: PATCH FOR PR #10843
Toon Moene
toon@moene.indiv.nluug.nl
Tue May 20 20:17:00 GMT 2003
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)
More information about the Gcc-patches
mailing list