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/f/expr.c | |
| 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/f/expr.c')
| -rw-r--r-- | gcc/f/expr.c | 6 |
1 files changed, 5 insertions, 1 deletions
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: |