diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-06-20 21:39:43 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-06-20 21:39:43 +0000 |
| commit | 966e7f731ef7ea019e681b7b53421c6857315c4a (patch) | |
| tree | 6485f0b28abef1033edc631d2a0a55b4b2f1c00e /gcc/fortran/symbol.c | |
| parent | 145f748f0ca4c9716e242ec03f134b7140f0e2c3 (diff) | |
| download | gcc-966e7f731ef7ea019e681b7b53421c6857315c4a.zip gcc-966e7f731ef7ea019e681b7b53421c6857315c4a.tar.gz gcc-966e7f731ef7ea019e681b7b53421c6857315c4a.tar.bz2 | |
re PR fortran/86587 (Derived-type with attributes BIND(C) and PRIVATE raises an error but standard accepts it)
2019-06-20 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/86587
* symbol.c (verify_bind_c_derived_type): Remove erroneous error
checking for BIND(C) and PRIVATE attributes.
2019-06-20 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/86587
* gfortran.dg/pr86587.f90: New test.
From-SVN: r272524
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index ec75322..f427363 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -4529,16 +4529,6 @@ verify_bind_c_derived_type (gfc_symbol *derived_sym) curr_comp = curr_comp->next; } while (curr_comp != NULL); - - /* Make sure we don't have conflicts with the attributes. */ - if (derived_sym->attr.access == ACCESS_PRIVATE) - { - gfc_error ("Derived type %qs at %L cannot be declared with both " - "PRIVATE and BIND(C) attributes", derived_sym->name, - &(derived_sym->declared_at)); - retval = false; - } - if (derived_sym->attr.sequence != 0) { gfc_error ("Derived type %qs at %L cannot have the SEQUENCE " |