Commit bded0535 by Craig Burley Committed by Craig Burley

Fix DATA repeat-count bug

From-SVN: r26554
parent 986b2f97
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
......
......@@ -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
......
......@@ -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,
......
const char *ffe_version_string = "0.5.24-19990419";
const char *ffe_version_string = "0.5.24-19990420";
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment