diff options
| author | Christopher D. Rickett <crickett@lanl.gov> | 2007-10-15 19:58:55 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-10-15 21:58:55 +0200 |
| commit | 9fd25b5cd5a8ed9de3ce735c041fe970059551a7 (patch) | |
| tree | 36b79ca0ae8909cbb87feeea48f42fdad9417077 /gcc/fortran/resolve.c | |
| parent | 93f238cea15b50c7e069c8b909102bb5b5202e6f (diff) | |
| download | gcc-9fd25b5cd5a8ed9de3ce735c041fe970059551a7.zip gcc-9fd25b5cd5a8ed9de3ce735c041fe970059551a7.tar.gz gcc-9fd25b5cd5a8ed9de3ce735c041fe970059551a7.tar.bz2 | |
re PR fortran/32600 ([ISO Bind C] C_F_POINTER w/o SHAPE should not be a library function)
2007-10-15 Christopher D. Rickett <crickett@lanl.gov>
PR fortran/32600
* trans-expr.c (gfc_conv_function_call): Generate code to inline
c_associated.
* symbol.c (get_iso_c_sym): Preserve from_intmod and
* intmod_sym_id
attributes in the resolved symbol.
* resolve.c (gfc_iso_c_sub_interface): Remove dead code.
2007-10-15 Christopher D. Rickett <crickett@lanl.gov>
PR fortran/32600
* libgfortran/intrinsics/iso_c_binding.c: Remove c_associated_1
and c_associated_2.
* libgfortran/intrinsics/iso_c_binding.h: Ditto.
* libgfortran/gfortran.map: Ditto.
From-SVN: r129367
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 2461bc3..65e479f 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -2479,31 +2479,6 @@ gfc_iso_c_sub_interface (gfc_code *c, gfc_symbol *sym) new_sym->declared_at = sym->declared_at; } } - else if (sym->intmod_sym_id == ISOCBINDING_ASSOCIATED) - { - /* TODO: Figure out if this is even reachable; this part of the - conditional may not be necessary. */ - int num_args = 0; - if (c->ext.actual->next == NULL) - { - /* The user did not give two args, so resolve to the version - of c_associated expecting one arg. */ - num_args = 1; - /* get rid of the second arg */ - /* TODO!! Should free up the memory here! */ - sym->formal->next = NULL; - } - else - { - num_args = 2; - } - - new_sym = sym; - sprintf (name, "%s_%d", sym->name, num_args); - sprintf (binding_label, "%s_%d", sym->binding_label, num_args); - sym->name = gfc_get_string (name); - strcpy (sym->binding_label, binding_label); - } else { /* no differences for c_loc or c_funloc */ |