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 /gcc/fortran/trans-types.c | |
| 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
Diffstat (limited to 'gcc/fortran/trans-types.c')
| -rw-r--r-- | gcc/fortran/trans-types.c | 4 |
1 files changed, 4 insertions, 0 deletions
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; } } |