This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: FORTAN: PATCH FOR PR #10843
- From: Bud Davis <bdavis9659 at comcast dot net>
- To: gcc-patches at gcc dot gnu dot org
- Cc: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- Date: Mon, 26 May 2003 20:42:07 -0500
- Subject: Re: FORTAN: PATCH FOR PR #10843
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;