This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

FORTAN: PATCH FOR PR #10843


The problem:
     GO TO 3
   3 CONTINUE
     END

Does not compile with -ffree-form

The test case(s):
[to be compiled with -ffree-form]
      GO TO 3
      GOTO 3
3     CONTINUE
      GOTO = 55
      GO TO = 55
      END

[to be compiled the "normal" way]

           GO TO 3
           GOTO 3
    3      CONTINUE
           GOTO = 55
           GO TO = 55
           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;






Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]