diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2022-12-09 21:45:37 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2022-12-09 21:45:37 +0100 |
| commit | b2e1c49b4a4592f9e96ae9ece8af7d0e6527b194 (patch) | |
| tree | 2ff8c340654035539084af7e525b77be0a350023 /gcc/fortran/st.cc | |
| parent | 71b31d13757ae0f544651c29b113ccf120573760 (diff) | |
| download | gcc-b2e1c49b4a4592f9e96ae9ece8af7d0e6527b194.zip gcc-b2e1c49b4a4592f9e96ae9ece8af7d0e6527b194.tar.gz gcc-b2e1c49b4a4592f9e96ae9ece8af7d0e6527b194.tar.bz2 | |
Fortran/OpenMP: align/allocator modifiers to the allocate clause
gcc/fortran/ChangeLog:
* dump-parse-tree.cc (show_omp_namelist): Improve OMP_LIST_ALLOCATE
output.
* gfortran.h (struct gfc_omp_namelist): Add 'align' to 'u'.
(gfc_free_omp_namelist): Add bool arg.
* match.cc (gfc_free_omp_namelist): Likewise; free 'u.align'.
* openmp.cc (gfc_free_omp_clauses, gfc_match_omp_clause_reduction,
gfc_match_omp_flush): Update call.
(gfc_match_omp_clauses): Match 'align/allocate modifers in
'allocate' clause.
(resolve_omp_clauses): Resolve align.
* st.cc (gfc_free_statement): Update call
* trans-openmp.cc (gfc_trans_omp_clauses): Handle 'align'.
libgomp/ChangeLog:
* libgomp.texi (5.1 Impl. Status): Split allocate clause/directive
item about 'align'; mark clause as 'Y' and directive as 'N'.
* testsuite/libgomp.fortran/allocate-2.f90: New test.
* testsuite/libgomp.fortran/allocate-3.f90: New test.
Diffstat (limited to 'gcc/fortran/st.cc')
| -rw-r--r-- | gcc/fortran/st.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/st.cc b/gcc/fortran/st.cc index 3c8ca66..8b4ca5e 100644 --- a/gcc/fortran/st.cc +++ b/gcc/fortran/st.cc @@ -286,7 +286,7 @@ gfc_free_statement (gfc_code *p) break; case EXEC_OMP_FLUSH: - gfc_free_omp_namelist (p->ext.omp_namelist, false); + gfc_free_omp_namelist (p->ext.omp_namelist, false, false); break; case EXEC_OMP_BARRIER: |