https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84487
Thomas Koenig <tkoenig at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |jakub at gcc dot gnu.org --- Comment #22 from Thomas Koenig <tkoenig at gcc dot gnu.org> --- This patch Index: trans-decl.c =================================================================== --- trans-decl.c (Revision 269895) +++ trans-decl.c (Arbeitskopie) @@ -1863,10 +1863,6 @@ gfc_get_symbol_decl (gfc_symbol * sym) if (sym->attr.associate_var) GFC_DECL_ASSOCIATE_VAR_P (decl) = 1; - if (sym->attr.vtab - || (sym->name[0] == '_' && gfc_str_startswith (sym->name, "__def_init"))) - TREE_READONLY (decl) = 1; - return decl; } leads to FAIL: gfortran.dg/gomp/pr52531.f90 -O (test for excess errors) Excess errors: /home/ig25/Gcc/trunk/gcc/testsuite/gfortran.dg/gomp/pr52531.f90:10:0: Error: '__vtab_test_mod_Test_type' not specified in enclosing 'parallel' /home/ig25/Gcc/trunk/gcc/testsuite/gfortran.dg/gomp/pr52531.f90:9:0: Error: enclosing 'parallel' where I have no idea if this is just a cosmetic bug which can, for example, be shut up with a check for attr.artificial, or if this points towards a real problem. Jakub, could you maybe shed any light?