diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-02-18 05:45:56 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-02-18 00:45:56 -0500 |
| commit | 5d0e7057cb391db047a4153e9517fa3878267acb (patch) | |
| tree | 8bd45d5bcfbfffebcf8d22080ce4d6c1c2b8514e /gcc | |
| parent | fc18a80ec409e3f81d9a3eac43ffa88bb8a558be (diff) | |
| download | gcc-5d0e7057cb391db047a4153e9517fa3878267acb.zip gcc-5d0e7057cb391db047a4153e9517fa3878267acb.tar.gz gcc-5d0e7057cb391db047a4153e9517fa3878267acb.tar.bz2 | |
fix IOSTAT=16-bit-int crash
From-SVN: r25279
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/f/expr.c | 6 | ||||
| -rw-r--r-- | gcc/f/news.texi | 13 | ||||
| -rw-r--r-- | gcc/f/version.c | 2 |
4 files changed, 25 insertions, 3 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 160cb67..9e9b3c3 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,5 +1,12 @@ 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. 1999-02-18 Craig Burley <craig@jcb-sc.com> diff --git a/gcc/f/expr.c b/gcc/f/expr.c index 7ed5100..f5b3466 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 b858479..521102f 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 @@ -61,9 +61,20 @@ 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 2530c78..4dc05dc 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"; |