diff options
| author | Rimvydas Jasinskas <rimvydas.jas@gmail.com> | 2023-02-24 04:41:00 +0000 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2023-02-24 22:53:37 +0100 |
| commit | bcbeebc498126c50d73809ec8a4bd0bff27ee97b (patch) | |
| tree | 5341117b0fd4bf284f35f22481e7532dc57aaa56 /gcc/fortran | |
| parent | 24c9edfa73632276d7698c103f35833f29804d98 (diff) | |
| download | gcc-bcbeebc498126c50d73809ec8a4bd0bff27ee97b.zip gcc-bcbeebc498126c50d73809ec8a4bd0bff27ee97b.tar.gz gcc-bcbeebc498126c50d73809ec8a4bd0bff27ee97b.tar.bz2 | |
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 <rimvydas.jas@gmail.com>
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/trans-decl.cc | 14 |
1 files changed, 14 insertions, 0 deletions
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); |