diff options
| author | Mikael Morin <mikael.morin@tele2.fr> | 2009-01-04 14:01:12 +0100 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2009-01-04 13:01:12 +0000 |
| commit | 23f2d0170d16eb9224ff19e52312ada7fe3e8e85 (patch) | |
| tree | 5735583d91215ed5ce6a12d11b3ab4d7aaafce06 /gcc/fortran/dependency.c | |
| parent | 1a8c13b33ce1470d5a291063a5f5d0beebf421ee (diff) | |
| download | gcc-23f2d0170d16eb9224ff19e52312ada7fe3e8e85.zip gcc-23f2d0170d16eb9224ff19e52312ada7fe3e8e85.tar.gz gcc-23f2d0170d16eb9224ff19e52312ada7fe3e8e85.tar.bz2 | |
re PR fortran/38536 (ICE with C_LOC in resolve.c due to not properly going through expr->ref)
2009-01-04 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/38536
* gfortran.h (gfc_is_data_pointer): Added prototype
* resolve.c (gfc_iso_c_func_interface):
Use gfc_is_data_pointer to test for pointer attribute.
* dependency.c (gfc_is_data_pointer):
Support pointer-returning functions.
2009-01-04 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/38536
* gfortran.dg/c_loc_tests_13.f90: New test.
* gfortran.dg/c_loc_tests_14.f90: New test.
From-SVN: r143050
Diffstat (limited to 'gcc/fortran/dependency.c')
| -rw-r--r-- | gcc/fortran/dependency.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index 56a6d36..639d6e3 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -422,16 +422,20 @@ gfc_ref_needs_temporary_p (gfc_ref *ref) } -static int +int gfc_is_data_pointer (gfc_expr *e) { gfc_ref *ref; - if (e->expr_type != EXPR_VARIABLE) + if (e->expr_type != EXPR_VARIABLE && e->expr_type != EXPR_FUNCTION) return 0; + /* No subreference if it is a function */ + gcc_assert (e->expr_type == EXPR_VARIABLE || !e->ref); + if (e->symtree->n.sym->attr.pointer) return 1; + for (ref = e->ref; ref; ref = ref->next) if (ref->type == REF_COMPONENT && ref->u.c.component->attr.pointer) return 1; |