diff options
author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-05-26 14:02:51 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-05-26 14:02:51 +0000 |
commit | c51ecf2813baeab6e24a2474d6c097d047ad41a2 (patch) | |
tree | dd5257a3f58ebfea3097bf1159d8df986d62c39b | |
parent | 6145df6232f10f1e5a328d5af7464933a68d2a89 (diff) | |
download | gcc-c51ecf2813baeab6e24a2474d6c097d047ad41a2.zip gcc-c51ecf2813baeab6e24a2474d6c097d047ad41a2.tar.gz gcc-c51ecf2813baeab6e24a2474d6c097d047ad41a2.tar.bz2 |
re PR fortran/90539 (481.wrf slowdown by 25% on Intel Kaby with -Ofast -march=native starting with r271377)
2019-05-26 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/90539
* trans-types.c (get_formal_from_actual_arglist): Set rank
and lower bound for assumed size arguments.
From-SVN: r271630
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/trans-types.c | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c3240f4..679633d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2019-05-26 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/90539 + * trans-types.c (get_formal_from_actual_arglist): Set rank + and lower bound for assumed size arguments. + 2019-05-22 Andrew Stubbs <ams@codesourcery.com> * trans-stmt.c (gfc_trans_critical): Use size_type_node for diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 22410b5..e16de59 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -3010,6 +3010,10 @@ get_formal_from_actual_arglist (gfc_symbol *sym, gfc_actual_arglist *actual_args { s->attr.dimension = 1; s->as = gfc_get_array_spec (); + s->as->rank = 1; + s->as->lower[0] = gfc_get_int_expr (gfc_index_integer_kind, + &a->expr->where, 1); + s->as->upper[0] = NULL; s->as->type = AS_ASSUMED_SIZE; } } |