diff options
| author | Daniel Kraft <d@domob.eu> | 2008-10-16 18:28:23 +0200 |
|---|---|---|
| committer | Daniel Kraft <domob@gcc.gnu.org> | 2008-10-16 18:28:23 +0200 |
| commit | dd9315ded08da38108ff04216afb2ac333ab5380 (patch) | |
| tree | 58c7c536f6bb3989e2f639ae8679bab849aa5ba0 /gcc/fortran/resolve.c | |
| parent | 919e5c5edf386d390e97199d4b302b3a59a57e36 (diff) | |
| download | gcc-dd9315ded08da38108ff04216afb2ac333ab5380.zip gcc-dd9315ded08da38108ff04216afb2ac333ab5380.tar.gz gcc-dd9315ded08da38108ff04216afb2ac333ab5380.tar.bz2 | |
resolve.c (resolve_elemental_actual): Handle calls to intrinsic subroutines correctly.
2008-10-16 Daniel Kraft <d@domob.eu>
* resolve.c (resolve_elemental_actual): Handle calls to intrinsic
subroutines correctly.
2008-10-16 Daniel Kraft <d@domob.eu>
* gfortran.dg/elemental_intrinsic_1.f03: New test.
From-SVN: r141175
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 70d3ad5..1816907 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1352,10 +1352,18 @@ resolve_elemental_actual (gfc_expr *expr, gfc_code *c) else return SUCCESS; } - else if (c && c->ext.actual != NULL && c->symtree->n.sym->attr.elemental) + else if (c && c->ext.actual != NULL) { arg0 = c->ext.actual; - esym = c->symtree->n.sym; + + if (c->resolved_sym) + esym = c->resolved_sym; + else + esym = c->symtree->n.sym; + gcc_assert (esym); + + if (!esym->attr.elemental) + return SUCCESS; } else return SUCCESS; |