diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-08 12:28:25 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-08 12:28:25 +0000 |
| commit | 99afd94b259027a9f7de2153159e56dc31468ae6 (patch) | |
| tree | 9f3bff0e67ca9e26d25d40bbb89175a03d998121 /gcc/fortran/simplify.c | |
| parent | 2f95d0b55551ea42a7d59d64d61a1afb3ff17323 (diff) | |
| download | gcc-99afd94b259027a9f7de2153159e56dc31468ae6.tar.gz | |
2004-08-08 Victor Leikehman <lei@il.ibm.com>
* simplify.c (gfc_simplify_shape): Bugfix.
* expr.c (gfc_copy_shape_excluding): New function.
* gfortran.h (gfc_get_shape): Bugfix.
(gfc_copy_shape_excluding): Added declaration.
* iresolve.c (gfc_resolve_all, gfc_resolve_any, gfc_resolve_count,
gfc_resolve_cshift, gfc_resolve_eoshift, gfc_resolve_lbound,
gfc_resolve_ubound, gfc_resolve_transpose): Added compile
time resolution of shape.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@85685 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 0a32d6f5cfc..bffda5973df 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -3213,12 +3213,12 @@ gfc_simplify_shape (gfc_expr * source) int n; try t; + if (source->rank == 0 || source->expr_type != EXPR_VARIABLE) + return NULL; + result = gfc_start_constructor (BT_INTEGER, gfc_default_integer_kind (), &source->where); - if (source->rank == 0 || source->expr_type != EXPR_VARIABLE) - return result; - ar = gfc_find_array_ref (source); t = gfc_array_ref_shape (ar, shape); |