diff options
author | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-09-08 22:33:10 +0000 |
---|---|---|
committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-09-08 22:33:10 +0000 |
commit | 2cf0ff9806714eacef91f759b3c7422a4491e695 (patch) | |
tree | 6c5ce11b8f25d62eea31762763a992aed00e4ed6 /gcc/fortran/array.c | |
parent | 20b6cf0194331045a8afa61ebf6432bb18f1ae87 (diff) | |
download | gcc-2cf0ff9806714eacef91f759b3c7422a4491e695.zip gcc-2cf0ff9806714eacef91f759b3c7422a4491e695.tar.gz gcc-2cf0ff9806714eacef91f759b3c7422a4491e695.tar.bz2 |
re PR fortran/69514 (ICE with nested array constructor)
2016-09-08 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/69514
* array.c (gfc_match_array_constructor): If type-spec is present,
walk the array constructor performing possible conversions for
numeric types.
2016-09-08 Steven G. Kargl <kargl@gcc.gnu.org>
Louis Krupp <lkrupp@gcc.gnu.org>
PR fortran/69514
* gfortran.dg/pr69514_1.f90: New test.
* gfortran.dg/pr69514_2.f90: New test.
Co-Authored-By: Louis Krupp <lkrupp@gcc.gnu.org>
From-SVN: r240039
Diffstat (limited to 'gcc/fortran/array.c')
-rw-r--r-- | gcc/fortran/array.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 03c8b17..48a7250 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -1089,6 +1089,7 @@ match_array_cons_element (gfc_constructor_base *result) match gfc_match_array_constructor (gfc_expr **result) { + gfc_constructor *c; gfc_constructor_base head, new_cons; gfc_undo_change_set changed_syms; gfc_expr *expr; @@ -1194,8 +1195,6 @@ done: be converted. See PR fortran/67803. */ if (ts.type == BT_CHARACTER) { - gfc_constructor *c; - c = gfc_constructor_first (head); for (; c; c = gfc_constructor_next (c)) { @@ -1218,6 +1217,14 @@ done: } } } + + /* Walk the constructor and ensure type conversion for numeric types. */ + if (gfc_numeric_ts (&ts)) + { + c = gfc_constructor_first (head); + for (; c; c = gfc_constructor_next (c)) + gfc_convert_type (c->expr, &ts, 1); + } } else expr = gfc_get_array_expr (BT_UNKNOWN, 0, &where); |