fix IOSTAT=16-bit-int crash

From-SVN: r25279

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 160cb6711ea32143b0c52cb588d8e2b00da0aa7f..9e9b3c3b6cd8bbde61f11d3fc1a77fe8cfeefefe 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,10 @@
+1999-02-18  Craig Burley  <craig@jcb-sc.com>
+
+       * expr.c (ffeexpr_finished_): Disallow non-default INTEGER
+       as argument for FILEINT and FILEASSOC as lhs.
+       * news.texi: Document fix.
+       * version.c: Bump.
+
 1999-02-18  Craig Burley  <craig@jcb-sc.com>
 
        * g77.texi: Clarify -fno-globals vs. -Wno-globals.

diff --git a/gcc/f/expr.c b/gcc/f/expr.c
index 7ed5100d278c0f0877f9b1e4e41b688a32ce4be3..f5b3466718c370d8a6d40f9cf4e319faed43d8f1 100644 (file)
--- a/gcc/f/expr.c
+++ b/gcc/f/expr.c
@@ -12853,7 +12853,11 @@ again:                         /* :::::::::::::::::::: */
              : ffeinfo_basictype (info))
        {
        case FFEINFO_basictypeINTEGER:
-         error = FALSE;
+         /* Maybe this should be supported someday, but, right now,
+            g77 can't generate a call to libf2c to write to an
+            integer other than the default size.  */
+         error = ((! ffeexpr_stack_->is_rhs)
+                  && ffeinfo_kindtype (info) != FFEINFO_kindtypeINTEGERDEFAULT);
          break;
 
        default:

diff --git a/gcc/f/news.texi b/gcc/f/news.texi
index b858479de3793d9c60b208d89640cf6b4eb6345b..521102fac9a68fecf1f5f09c70c4f124f21a3880 100644 (file)
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -5,7 +5,7 @@
 @c The text of this file appears in the file BUGS
 @c in the G77 distribution, as well as in the G77 manual.
 
-@c 1999-02-14
+@c 1999-02-18
 
 @ifclear NEWSONLY
 @node News
@@ -60,10 +60,21 @@ somewhat more difficult.
 
 @heading In @code{egcs} 1.2:
 @itemize @bullet
+@item
+Fix @code{g77} so it no longer crashes when compiling
+I/O statements with @samp{IOSTAT=@var{j}},
+where @var{j} is other than default @code{INTEGER}
+(such as @code{INTEGER*2}).
+Instead, it issues a diagnostic.
+
 @item
 Source file names with the suffixes @samp{.FOR} and @samp{.FPP}
 now are recognized by @code{g77}
 as if they ended in @samp{.for} and @samp{.fpp}, respectively.
+
+@item
+Improve documentation and indexing,
+including information on Year 2000 (Y2K) compliance.
 @end itemize
 
 @heading In 0.5.24 and @code{egcs} 1.1.1 (versus 0.5.23 and 1.1):

diff --git a/gcc/f/version.c b/gcc/f/version.c
index 2530c78ccce693397851509323e4226e319880e3..4dc05dcb217234f5031bb01907372f45607a88b2 100644 (file)
--- a/gcc/f/version.c
+++ b/gcc/f/version.c
@@ -1 +1 @@
-char *ffe_version_string = "0.5.24-19990214";
+char *ffe_version_string = "0.5.24-19990218";