From bcbeebc498126c50d73809ec8a4bd0bff27ee97b Mon Sep 17 00:00:00 2001 From: Rimvydas Jasinskas Date: Fri, 24 Feb 2023 04:41:00 +0000 Subject: Fortran: Add support for WEAK attribute for variables Add the rest of the weak-*.f90 testcases. gcc/fortran/ChangeLog: * trans-decl.cc (gfc_finish_var_decl): Apply attribute. (generate_local_decl): Add diagnostic for dummy and local variables. gcc/testsuite/ChangeLog: * gfortran.dg/weak-2.f90: New test. * gfortran.dg/weak-3.f90: New test. Signed-off-by: Rimvydas Jasinskas --- gcc/fortran/trans-decl.cc | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'gcc/fortran') diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index ff64588..4749209 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -814,6 +814,10 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym) && (TREE_STATIC (decl) || DECL_EXTERNAL (decl))) set_decl_tls_model (decl, decl_default_tls_model (decl)); + /* Mark weak variables. */ + if (sym->attr.ext_attr & (1 << EXT_ATTR_WEAK)) + declare_weak (decl); + gfc_finish_decl_attrs (decl, &sym->attr); } @@ -5885,6 +5889,16 @@ generate_local_decl (gfc_symbol * sym) if (!sym->attr.dummy && !sym->ns->proc_name->attr.entry_master) generate_dependency_declarations (sym); + if (sym->attr.ext_attr & (1 << EXT_ATTR_WEAK)) + { + if (sym->attr.dummy) + gfc_error ("Symbol %qs at %L has the WEAK attribute but is a " + "dummy argument", sym->name, &sym->declared_at); + else + gfc_error ("Symbol %qs at %L has the WEAK attribute but is a " + "local variable", sym->name, &sym->declared_at); + } + if (sym->attr.referenced) gfc_get_symbol_decl (sym); -- cgit v1.1