diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2013-07-27 14:55:59 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2013-07-27 14:55:59 +0200 |
| commit | c970dc045949589801863bb6bf25cbfea35da3f5 (patch) | |
| tree | 8e2f39045081dad0b8809c4d0b011ce18a06f7ac /gcc/fortran/check.c | |
| parent | 538e2a82e90fbccb9b1df1f20cd96102cf689454 (diff) | |
| download | gcc-c970dc045949589801863bb6bf25cbfea35da3f5.zip gcc-c970dc045949589801863bb6bf25cbfea35da3f5.tar.gz gcc-c970dc045949589801863bb6bf25cbfea35da3f5.tar.bz2 | |
re PR fortran/57285 ([OOP] ICE on invalid: "gfc_array_dimen_size(): Bad dimension" due to SIZE intrinsic with invalid dim on CLASS dummy)
2013-07-27 Janus Weil <janus@gcc.gnu.org>
PR fortran/57285
* check.c (dim_rank_check): Re-enable this check for CLASS arrays.
2013-07-27 Janus Weil <janus@gcc.gnu.org>
PR fortran/57285
* gfortran.dg/class_array_19.f90: New.
From-SVN: r201284
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 884dc43..758639e 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -608,9 +608,6 @@ dim_rank_check (gfc_expr *dim, gfc_expr *array, int allow_assumed) if (dim->expr_type != EXPR_CONSTANT) return true; - if (array->ts.type == BT_CLASS) - return true; - if (array->expr_type == EXPR_FUNCTION && array->value.function.isym && array->value.function.isym->id == GFC_ISYM_SPREAD) rank = array->rank + 1; |