Fix DATA repeat-count bug

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26554 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 8b2e993..8cfae68 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,10 @@
+Tue Apr 20 01:15:25 1999  Craig Burley  <craig@jcb-sc.com>
+
+       * stb.c (ffestb_R5282_): Convert DATA repeat count
+       to default INTEGER, to avoid problems downstream.
+
+       * version.c: Bump version.
+
 Mon Apr 19 21:36:48 1999  Craig Burley  <craig@jcb-sc.com>
 
        * ste.c (ffeste_R819B): Start the loop before expanding

diff --git a/gcc/f/news.texi b/gcc/f/news.texi
index 9520e28..52d03d6 100644 (file)
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -9,7 +9,7 @@
 @c in the standalone derivations of this file (e.g. NEWS).
 @set copyrights-news 1995-1999
 
-@set last-update-news 1999-04-17
+@set last-update-news 1999-04-20
 
 @include root.texi
 
@@ -176,6 +176,13 @@ Instead, it issues a diagnostic.
 
 @ifclear USERVISONLY
 @item
+Fix @code{g77} so it properly handles @samp{DATA A/@var{rpt}*@var{val}/},
+where @var{rpt} is not default @code{INTEGER}, such as @code{INTEGER*2},
+instead of producing a spurious diagnostic.
+@end ifclear
+
+@ifclear USERVISONLY
+@item
 The @samp{-ax} option is now obeyed when compiling Fortran programs.
 (It is passed to the @file{f771} driver.)
 @end ifclear
@@ -218,12 +225,22 @@ now reliably aligns @emph{all} double-precision variables and arrays
 on Intel x86 targets.
 
 @item
+A substantial portion of the @code{g77} front end's code-generation component
+was rewritten.
+It now generates code using facilities more robustly supported
+by the @code{gcc} back end.
+One effect of this rewrite is that some codes no longer produce
+a spurious ``label @var{lab} used before containing binding contour''
+message.
+
+@item
 Support for the @samp{-fugly} option has been removed.
 
 @ifclear USERVISONLY
 @item
 Improve documentation and indexing,
-including information on Year 2000 (Y2K) compliance.
+including information on Year 2000 (Y2K) compliance,
+and providing more information on internals of the front end.
 @end ifclear
 
 @ifclear USERVISONLY

diff --git a/gcc/f/stb.c b/gcc/f/stb.c
index 59655e2..ef523c4 100644 (file)
--- a/gcc/f/stb.c
+++ b/gcc/f/stb.c
@@ -5707,7 +5707,12 @@ ffestb_R5282_ (ffelexToken ft, ffebld expr, ffelexToken t)
     case FFELEX_typeASTERISK:
       if (expr == NULL)
        break;
-      ffestb_local_.data.expr = expr;
+      ffestb_local_.data.expr = ffeexpr_convert (expr, ft, t,
+                                                FFEINFO_basictypeINTEGER,
+                                                FFEINFO_kindtypeINTEGER1,
+                                                0,
+                                                FFETARGET_charactersizeNONE,
+                                                FFEEXPR_contextLET);
       ffesta_tokens[1] = ffelex_token_use (ft);
       return (ffelexHandler) ffeexpr_rhs
        (ffesta_output_pool, FFEEXPR_contextDATA,

diff --git a/gcc/f/version.c b/gcc/f/version.c
index d962b67..b2b996f 100644 (file)
--- a/gcc/f/version.c
+++ b/gcc/f/version.c
@@ -1 +1 @@
-const char *ffe_version_string = "0.5.24-19990419";
+const char *ffe_version_string = "0.5.24-19990420";