From 5d0e7057cb391db047a4153e9517fa3878267acb Mon Sep 17 00:00:00 2001
From: Craig Burley <craig@jcb-sc.com>
Date: Thu, 18 Feb 1999 05:45:56 +0000
Subject: [PATCH] fix IOSTAT=16-bit-int crash

From-SVN: r25279
---
 gcc/f/ChangeLog |  7 +++++++
 gcc/f/expr.c    |  6 +++++-
 gcc/f/news.texi | 13 ++++++++++++-
 gcc/f/version.c |  2 +-
 4 files changed, 25 insertions(+), 3 deletions(-)

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 160cb6711ea..9e9b3c3b6cd 100644
--- 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 7ed5100d278..f5b3466718c 100644
--- 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 b858479de37..521102fac9a 100644
--- 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 2530c78ccce..4dc05dcb217 100644
--- 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";
-- 
2.30.2