diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-10-18 12:48:12 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-10-18 12:48:12 +0200 |
| commit | 00820a2a60b1624af0bb093f4b7c93ea62113b3c (patch) | |
| tree | 148eaa9b42a6e2b9cba8c5f9681b188b9ea70790 /gcc/fortran/symbol.c | |
| parent | fc8396e9611daa58c0cb9a9e55844e797e0347ea (diff) | |
| download | gcc-00820a2a60b1624af0bb093f4b7c93ea62113b3c.zip gcc-00820a2a60b1624af0bb093f4b7c93ea62113b3c.tar.gz gcc-00820a2a60b1624af0bb093f4b7c93ea62113b3c.tar.bz2 | |
re PR fortran/47023 (C_Sizeof: Rejects valid code)
2011-10-18 Janus Weil <janus@gcc.gnu.org>
PR fortran/47023
* decl.c (verify_c_interop_param): Renamed to
'gfc_verify_c_interop_param'. Add error message for polymorphic
arguments.
(verify_c_interop): Renamed to 'gfc_verify_c_interop'. Reject
polymorphic variables.
(verify_bind_c_sym): Renamed 'verify_c_interop'.
* gfortran.h (verify_c_interop,verify_c_interop_param): Renamed.
* check.c (gfc_check_sizeof): Ditto.
* resolve.c (gfc_iso_c_func_interface,resolve_fl_procedure): Ditto.
* symbol.c (verify_bind_c_derived_type): Ditto.
2011-10-18 Janus Weil <janus@gcc.gnu.org>
PR fortran/47023
* gfortran.dg/iso_c_binding_class.f03: New.
From-SVN: r180130
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 4b506fe..587ad7c 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -3635,7 +3635,7 @@ verify_bind_c_derived_type (gfc_symbol *derived_sym) else { /* Grab the typespec for the given component and test the kind. */ - is_c_interop = verify_c_interop (&(curr_comp->ts)); + is_c_interop = gfc_verify_c_interop (&(curr_comp->ts)); if (is_c_interop != SUCCESS) { |