diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-04-07 10:41:17 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-04-07 10:41:17 +0200 |
| commit | 7c42966e8533afa8a5102e4fd072c825d57fea2e (patch) | |
| tree | f445a6a531a31cc0a2aaa3c8eb06f517409e1335 /gcc/fortran/iresolve.c | |
| parent | 31ebb2937ed30d05f80dd5d32e3548bc78bc22e2 (diff) | |
| download | gcc-7c42966e8533afa8a5102e4fd072c825d57fea2e.zip gcc-7c42966e8533afa8a5102e4fd072c825d57fea2e.tar.gz gcc-7c42966e8533afa8a5102e4fd072c825d57fea2e.tar.bz2 | |
re PR fortran/56849 (Missing compile-time shape check for RESHAPE assignments with an ORDER= attribute)
2013-04-07 Tobias Burnus <burnus@net-b.de>
PR fortran/56849
* iresolve.c (gfc_resolve_reshape): Set shape also
with order=.
2013-04-07 Tobias Burnus <burnus@net-b.de>
PR fortran/56849
* gfortran.dg/reshape_5.f90: New.
From-SVN: r197550
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 2b92b7c..af452b3 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -2154,10 +2154,7 @@ gfc_resolve_reshape (gfc_expr *f, gfc_expr *source, gfc_expr *shape, break; } - /* TODO: Make this work with a constant ORDER parameter. */ - if (shape->expr_type == EXPR_ARRAY - && gfc_is_constant_expr (shape) - && order == NULL) + if (shape->expr_type == EXPR_ARRAY && gfc_is_constant_expr (shape)) { gfc_constructor *c; f->shape = gfc_get_shape (f->rank); |