diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-02-26 06:23:42 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-02-26 06:23:42 +0000 |
| commit | 692b9a1ada6bd6d7fe59fc869cd32e473282853c (patch) | |
| tree | ef4178cf89573e2f854651cfe93d42f398ff80ce /gcc/fortran/trans-array.c | |
| parent | 335d0e0cfeec384586d2b432e8fce96a88b16e60 (diff) | |
| download | gcc-692b9a1ada6bd6d7fe59fc869cd32e473282853c.tar.gz | |
2009-02-26 Paul Thomas <pault@gcc.gnu.org>
PR fortran/39292
* trans-array.c (gfc_conv_array_initializer): Convert all
expressions rather than ICEing.
2009-02-26 Paul Thomas <pault@gcc.gnu.org>
PR fortran/39292
* gfortran.dg/initialization_22.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@144444 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 2b23f15cba4..6c623504af8 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -4005,8 +4005,21 @@ gfc_conv_array_initializer (tree type, gfc_expr * expr) CONSTRUCTOR_APPEND_ELT (v, index, se.expr); break; + default: - gcc_unreachable (); + /* Catch those occasional beasts that do not simplify + for one reason or another, assuming that if they are + standard defying the frontend will catch them. */ + gfc_conv_expr (&se, c->expr); + if (range == NULL_TREE) + CONSTRUCTOR_APPEND_ELT (v, index, se.expr); + else + { + if (index != NULL_TREE) + CONSTRUCTOR_APPEND_ELT (v, index, se.expr); + CONSTRUCTOR_APPEND_ELT (v, range, se.expr); + } + break; } } break; |