diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-05-14 19:19:26 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-05-14 19:19:26 +0200 |
| commit | 62e1bd651f60cfe3daaad91b41b7612bc7fa7460 (patch) | |
| tree | dff3a824a447daeab09e162ea6fba5df926e9e7d /gcc/fortran/resolve.c | |
| parent | 2f1bb00ba340e53663651be7874011fd54e1d085 (diff) | |
| download | gcc-62e1bd651f60cfe3daaad91b41b7612bc7fa7460.zip gcc-62e1bd651f60cfe3daaad91b41b7612bc7fa7460.tar.gz gcc-62e1bd651f60cfe3daaad91b41b7612bc7fa7460.tar.bz2 | |
Fortran/OpenMP: Handle implicit SAVE for variables in main
gcc/fortran/ChangeLog:
* resolve.c (resolve_symbol): Handle implicit SAVE of main-program
for vars in 'omp threadprivate' and 'omp declare target'.
gcc/testsuite/ChangeLog:
* gfortran.dg/gomp/implicit-save.f90: New test.
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 5a81387..83b41a3 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -16039,7 +16039,8 @@ resolve_symbol (gfc_symbol *sym) && !(sym->ns->save_all && !sym->attr.automatic) && sym->module == NULL && (sym->ns->proc_name == NULL - || sym->ns->proc_name->attr.flavor != FL_MODULE)) + || (sym->ns->proc_name->attr.flavor != FL_MODULE + && !sym->ns->proc_name->attr.is_main_program))) gfc_error ("Threadprivate at %L isn't SAVEd", &sym->declared_at); /* Check omp declare target restrictions. */ @@ -16050,7 +16051,8 @@ resolve_symbol (gfc_symbol *sym) && (!sym->attr.in_common && sym->module == NULL && (sym->ns->proc_name == NULL - || sym->ns->proc_name->attr.flavor != FL_MODULE))) + || (sym->ns->proc_name->attr.flavor != FL_MODULE + && !sym->ns->proc_name->attr.is_main_program)))) gfc_error ("!$OMP DECLARE TARGET variable %qs at %L isn't SAVEd", sym->name, &sym->declared_at); |