mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 15:15:19 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/10843 (g77 -ffree-form rejects "GO TO".)

Browse Source 
2003-05-31  Bud Davis  <bdavis9659@comcast.net>

	PR fortran/10843
	* sta.c (ffesta_second_): Parse GO TO correctly,
	even in free source format.

From-SVN: r67276
This commit is contained in:
Bud Davis 2003-05-31 19:45:41 +00:00 committed by Toon Moene
parent 14fb18b06f
commit 92ffc027d1
2 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/f/ChangeLog
View File

@ -1,3 +1,9 @@
2003-05-31 Bud Davis <bdavis9659@comcast.net>
PR fortran/10843
* sta.c (ffesta_second_): Parse GO TO correctly,
even in free source format.
2003-05-31 Andreas Jaeger <aj@suse.de>
* lex.c (ffelex_hash_): Remove HANDLE_PRAGMA and

18
gcc/f/sta.c
View File

@ -1,5 +1,5 @@
/* sta.c -- Implementation File (module.c template V1.0)
Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
Copyright (C) 1995, 1996, 1997, 2003 Free Software Foundation, Inc.
Contributed by James Craig Burley.
This file is part of GNU Fortran.
@ -954,6 +954,22 @@ ffesta_second_ (ffelexToken t)
ffesta_add_possible_nonexec_ ((ffelexHandler) ffestb_dummy);
break;
case FFESTR_firstGO:
if ((ffelex_token_type (ffesta_token_0_) == FFELEX_typeNAMES)
|| (ffelex_token_type (t) != FFELEX_typeNAME))
ffesta_add_possible_exec_ ((ffelexHandler) ffestb_goto);
else
switch (ffesta_second_kw)
{
case FFESTR_secondTO:
ffesta_add_possible_exec_ ((ffelexHandler) ffestb_goto);
break;
default:
ffesta_add_possible_exec_ ((ffelexHandler) ffestb_goto);
break;
}
break;
case FFESTR_firstGOTO:
ffesta_add_possible_exec_ ((ffelexHandler) ffestb_goto);
break;