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/check.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/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 9b8ec21..66e661b 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -3455,7 +3455,7 @@ gfc_check_sizeof (gfc_expr *arg ATTRIBUTE_UNUSED) gfc_try gfc_check_c_sizeof (gfc_expr *arg) { - if (verify_c_interop (&arg->ts) != SUCCESS) + if (gfc_verify_c_interop (&arg->ts) != SUCCESS) { gfc_error ("'%s' argument of '%s' intrinsic at %L must be an " "interoperable data entity", |