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