diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-22 21:28:08 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-22 21:28:08 +0000 |
| commit | fd54f19ccbe7d82f2b33c7a6bbaf7d7de1cbb5c5 (patch) | |
| tree | a40c16b3d5f5ed186bfbe426cb793d8f1fe8d75a /gcc/fortran/resolve.c | |
| parent | 5cf92482ca85a7082ee812883bf08cb0b85191a3 (diff) | |
| download | gcc-fd54f19ccbe7d82f2b33c7a6bbaf7d7de1cbb5c5.tar.gz | |
2007-08-22 Christopher D. Rickett <crickett@lanl.gov>
PR fortran/33020
* resolve.c (gfc_iso_c_sub_interface): Remove setting of type and
kind for optional SHAPE parameter of C_F_POINTER.
2007-08-22 Christopher D. Rickett <crickett@lanl.gov>
PR fortran/33020
* gfortran.dg/c_f_pointer_shape_tests_2.f03: Update test to
include multiple kinds for SHAPE parameter within a single
namespace.
* gfortran.dg/c_f_pointer_shape_tests_2_driver.c: Ditto.
* gfortran.dg/c_f_pointer_shape_tests_3.f03: New test case.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127719 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index ae15d16c188..fbb7a03566a 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -2351,11 +2351,6 @@ gfc_iso_c_sub_interface (gfc_code *c, gfc_symbol *sym) formal args) before resolving. */ gfc_procedure_use (sym, &c->ext.actual, &(c->loc)); - /* Give the optional SHAPE formal arg a type now that we've done our - initial checking against the actual. */ - if (sym->intmod_sym_id == ISOCBINDING_F_POINTER) - sym->formal->next->next->sym->ts.type = BT_INTEGER; - if ((sym->intmod_sym_id == ISOCBINDING_F_POINTER) || (sym->intmod_sym_id == ISOCBINDING_F_PROCPOINTER)) { @@ -2396,13 +2391,6 @@ gfc_iso_c_sub_interface (gfc_code *c, gfc_symbol *sym) /* the 1 means to add the optional arg to formal list */ new_sym = get_iso_c_sym (sym, name, binding_label, 1); - /* Set the kind for the SHAPE array to that of the actual - (if given). */ - if (c->ext.actual != NULL && c->ext.actual->next != NULL - && c->ext.actual->next->expr->rank != 0) - new_sym->formal->next->next->sym->ts.kind = - c->ext.actual->next->next->expr->ts.kind; - /* for error reporting, say it's declared where the original was */ new_sym->declared_at = sym->declared_at; } |