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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 12 |
2 files changed, 15 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1d26c1f..d4ff6b3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2008-10-16 Daniel Kraft <d@domob.eu> + + * resolve.c (resolve_elemental_actual): Handle calls to intrinsic + subroutines correctly. + 2008-10-13 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * simplify.c: Remove MPFR_VERSION_NUM(2,3,0) conditionals. 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; |