diff options
Diffstat (limited to 'gcc/fortran/class.cc')
| -rw-r--r-- | gcc/fortran/class.cc | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/class.cc b/gcc/fortran/class.cc index 97ff54d..df18601 100644 --- a/gcc/fortran/class.cc +++ b/gcc/fortran/class.cc @@ -2498,6 +2498,7 @@ gfc_find_derived_vtab (gfc_symbol *derived) vtab->attr.save = SAVE_IMPLICIT; vtab->attr.vtab = 1; vtab->attr.access = ACCESS_PUBLIC; + vtab->attr.artificial = 1; gfc_set_sym_referenced (vtab); free (name); name = xasprintf ("__vtype_%s", tname); @@ -2610,6 +2611,7 @@ gfc_find_derived_vtab (gfc_symbol *derived) goto cleanup; c->attr.proc_pointer = 1; c->attr.access = ACCESS_PRIVATE; + c->attr.artificial = 1; c->tb = XCNEW (gfc_typebound_proc); c->tb->ppc = 1; if (derived->attr.unlimited_polymorphic @@ -2687,6 +2689,7 @@ gfc_find_derived_vtab (gfc_symbol *derived) goto cleanup; c->attr.proc_pointer = 1; c->attr.access = ACCESS_PRIVATE; + c->attr.artificial = 1; c->tb = XCNEW (gfc_typebound_proc); c->tb->ppc = 1; if (derived->attr.unlimited_polymorphic || derived->attr.abstract @@ -2951,6 +2954,7 @@ find_intrinsic_vtab (gfc_typespec *ts) goto cleanup; c->attr.proc_pointer = 1; c->attr.access = ACCESS_PRIVATE; + c->attr.artificial = 1; c->tb = XCNEW (gfc_typebound_proc); c->tb->ppc = 1; |