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

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

gcc/f/ChangeLog

+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

gcc/f/sta.c

 /* 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;