fix IOSTAT=16-bit-int crash

From-SVN: r25279

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.

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:

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):

gcc/f/version.c

@@ -1 +1 @@
-char *ffe_version_string = "0.5.24-19990214";
+char *ffe_version_string = "0.5.24-19990218";