diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-12-09 08:37:17 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-12-09 08:37:17 +0000 |
| commit | b01fff4882f0c5d35a52e7001832e31c708fffd9 (patch) | |
| tree | 25ee205b4dca5402eabeed57e569d5310926452a /gcc/fortran/simplify.c | |
| parent | 3a4c600f389e8c5aa6dcbd6cd14bd0c546af0bb2 (diff) | |
| download | gcc-b01fff4882f0c5d35a52e7001832e31c708fffd9.zip gcc-b01fff4882f0c5d35a52e7001832e31c708fffd9.tar.gz gcc-b01fff4882f0c5d35a52e7001832e31c708fffd9.tar.bz2 | |
re PR fortran/83316 (ICE: minval/maxval and characters)
2017-12-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/83316
* arith.c (gfc_character2character): New function.
* arith.h: Add prototype.
* simplify.c (gfc_convert_constant): Handle character type.
2017-12-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/83316
* gfortran.dg/minval_char_5.f90: New test.
From-SVN: r255522
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index c7b7e1a..f11ea42 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -7130,6 +7130,13 @@ gfc_convert_constant (gfc_expr *e, bt type, int kind) } break; + case BT_CHARACTER: + if (type == BT_CHARACTER) + f = gfc_character2character; + else + goto oops; + break; + default: oops: gfc_internal_error ("gfc_convert_constant(): Unexpected type"); |