diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/class.cc | 4 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.cc | 23 |
2 files changed, 27 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; diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index 97bb0a4..b8fc9a1 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -8295,6 +8295,26 @@ gfc_generate_constructors (void) #endif } + +/* Helper function for checking of variables declared in a BLOCK DATA program + unit. */ + +static void +check_block_data_decls (gfc_symbol * sym) +{ + if (warn_unused_variable + && sym->attr.flavor == FL_VARIABLE + && !sym->attr.in_common + && !sym->attr.artificial) + { + gfc_warning (OPT_Wunused_variable, + "Symbol %qs at %L is declared in a BLOCK DATA " + "program unit but is not in a COMMON block", + sym->name, &sym->declared_at); + } +} + + /* Translates a BLOCK DATA program unit. This means emitting the commons contained therein plus their initializations. We also emit a globally visible symbol to make sure that each BLOCK DATA program @@ -8315,6 +8335,9 @@ gfc_generate_block_data (gfc_namespace * ns) /* Process the DATA statements. */ gfc_trans_common (ns); + /* Check for variables declared in BLOCK DATA but not used in COMMON. */ + gfc_traverse_ns (ns, check_block_data_decls); + /* Create a global symbol with the mane of the block data. This is to generate linker errors if the same name is used twice. It is never really used. */ |