diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-01-09 20:31:07 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-01-09 20:31:07 +0000 |
| commit | ee0b3cea205eb7e832d7262425ddee8ed34778e5 (patch) | |
| tree | ecee54824e8a7db5f4123fb1ac5d96a96d14c708 /gcc/fortran/simplify.c | |
| parent | 33142cf9cf82aa1f1be6b8c77f903818c101b9dd (diff) | |
| download | gcc-ee0b3cea205eb7e832d7262425ddee8ed34778e5.zip gcc-ee0b3cea205eb7e832d7262425ddee8ed34778e5.tar.gz gcc-ee0b3cea205eb7e832d7262425ddee8ed34778e5.tar.bz2 | |
re PR fortran/68426 (Simplification of SPREAD with a derived type element is unimplemented)
2019-01-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/68426
* simplify.c (gfc_simplify_spread): Also simplify if the
type of source is an EXPR_STRUCTURE.
2019-01-09 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/68426
* gfortran.dg/spread_simplify_1.f90: New test.
From-SVN: r267781
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 90477e5..06b0b87 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -7572,7 +7572,8 @@ gfc_simplify_spread (gfc_expr *source, gfc_expr *dim_expr, gfc_expr *ncopies_exp return NULL; } - if (source->expr_type == EXPR_CONSTANT) + if (source->expr_type == EXPR_CONSTANT + || source->expr_type == EXPR_STRUCTURE) { gcc_assert (dim == 0); |