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]

Re: FORTRAN :PATCH FOR PR 7179


Bud Davis wrote:

Below is a patch that moves the test "ffestorag_size (st) ==0" so it happens after the error has been diagnosed.
bootstrapped on i686-pc-linux-gnu with no additional testsuite failures.


regards,
bud davis

Index: gcc/gcc/f/com.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/f/com.c,v
retrieving revision 1.195
diff -c -3 -p -r1.195 com.c
*** gcc/gcc/f/com.c     13 May 2003 18:06:48 -0000      1.195
--- gcc/gcc/f/com.c     22 May 2003 02:50:19 -0000
*************** ffecom_sym_transform_ (ffesymbol s)
*** 7408,7420 ****
           ffestorag st = ffesymbol_storage (s);
           tree type;

-           if ((st != NULL)
-               && (ffestorag_size (st) == 0))
-             {
-               t = error_mark_node;
-               break;
-             }
-
           type = ffecom_type_localvar_ (s, bt, kt);

           if (type == error_mark_node)
--- 7408,7413 ----
*************** ffecom_sym_transform_ (ffesymbol s)
*** 7422,7427 ****
--- 7415,7427 ----
               t = error_mark_node;
               break;
             }
+
+             if ((st != NULL)
+                 && (ffestorag_size (st) == 0))
+               {
+                 t = error_mark_node;
+                 break;
+               }

           if ((st != NULL)
               && (ffestorag_parent (st) != NULL))


Applied - thanks !


Please close the bug report - if you are enabled to do so.

--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
GNU Fortran 95: http://gcc-g95.sourceforge.net/ (under construction)


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