diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2021-11-23 17:51:38 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2021-11-23 17:51:38 +0100 |
| commit | 721d8b9e26bf8205c1f2125c2626919a408cdbe4 (patch) | |
| tree | 475dbb2f16e80450852f47254c88354701bb7ff6 /gcc/fortran/trans-array.c | |
| parent | 46d3cfd29dc701e1e0d18b0380d6299fce7944f2 (diff) | |
| download | gcc-721d8b9e26bf8205c1f2125c2626919a408cdbe4.zip gcc-721d8b9e26bf8205c1f2125c2626919a408cdbe4.tar.gz gcc-721d8b9e26bf8205c1f2125c2626919a408cdbe4.tar.bz2 | |
Fortran: fix scalarization for intrinsic LEN_TRIM with present KIND argument
gcc/fortran/ChangeLog:
PR fortran/87711
PR fortran/87851
* trans-array.c (arg_evaluated_for_scalarization): Add LEN_TRIM to
list of intrinsics for which an optional KIND argument needs to be
removed before scalarization.
gcc/testsuite/ChangeLog:
PR fortran/87711
PR fortran/87851
* gfortran.dg/len_trim.f90: New test.
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 2090adf..238b1b7 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -11499,6 +11499,7 @@ arg_evaluated_for_scalarization (gfc_intrinsic_sym *function, switch (function->id) { case GFC_ISYM_INDEX: + case GFC_ISYM_LEN_TRIM: if (strcmp ("kind", gfc_dummy_arg_get_name (*dummy_arg)) == 0) return false; /* Fallthrough. */ |