FORTAN: PATCH FOR PR #10843

[Bud Davis]

The patch below has been bootstrapped and checked on i686-gnu-linux with 
no additional test suite regressions  (check-g77).


Index: gcc/gcc/f/sta.c
===================================================================
RCS file: /cvsroot/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     27 May 2003 00:08:21 -0000
*************** ffesta_second_ (ffelexToken t)
*** 953,959 ****
        ffestb_args.dummy.is_subr = FALSE;
        ffesta_add_possible_nonexec_ ((ffelexHandler) ffestb_dummy);
        break;
!
      case FFESTR_firstGOTO:
        ffesta_add_possible_exec_ ((ffelexHandler) ffestb_goto);
        break;
--- 953,975 ----
        ffestb_args.dummy.is_subr = FALSE;
        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;