]> git.ipfire.org Git - thirdparty/gcc.git/commit
Fortran: Add LOCALITY support for DO_CONCURRENT
authorAnuj Mohite <anujmohite001@gmail.com>
Tue, 14 Jan 2025 00:28:57 +0000 (16:28 -0800)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Tue, 14 Jan 2025 01:12:10 +0000 (17:12 -0800)
commit20b8500cfa522ebe0fcf756d5b32816da7f904dd
treeae6b1e03717dcf022428e025a6a9c803236011d4
parentbbc7900ce7e2c3d906286674f80789f057e86c0a
Fortran: Add LOCALITY support for DO_CONCURRENT

This patch provided by Anuj Mohite as part of the GSoC project.
It is modified slightly by Jerry DeLisle for minor formatting.
The patch provides front-end parsing of the LOCALITY specs in
DO_CONCURRENT and adds numerous test cases.

gcc/fortran/ChangeLog:

* dump-parse-tree.cc (show_code_node):  Updated to use
c->ext.concur.forall_iterator instead of c->ext.forall_iterator.
* frontend-passes.cc (index_interchange): Updated to
use c->ext.concur.forall_iterator instead of c->ext.forall_iterator.
(gfc_code_walker): Likewise.
* gfortran.h (enum locality_type): Added new enum for locality types
in DO CONCURRENT constructs.
* match.cc (match_simple_forall): Updated to use
new_st.ext.concur.forall_iterator instead of new_st.ext.forall_iterator.
(gfc_match_forall): Likewise.
(gfc_match_do):  Implemented support for matching DO CONCURRENT locality
specifiers (LOCAL, LOCAL_INIT, SHARED, DEFAULT(NONE), and REDUCE).
* parse.cc (parse_do_block): Updated to use
new_st.ext.concur.forall_iterator instead of new_st.ext.forall_iterator.
* resolve.cc (struct check_default_none_data): Added struct
check_default_none_data.
(do_concur_locality_specs_f2023): New function to check compliance
with F2023's C1133 constraint for DO CONCURRENT.
(check_default_none_expr): New function to check DEFAULT(NONE)
compliance.
(resolve_locality_spec): New function to resolve locality specs.
(gfc_count_forall_iterators): Updated to use
code->ext.concur.forall_iterator.
(gfc_resolve_forall): Updated to use code->ext.concur.forall_iterator.
* st.cc (gfc_free_statement): Updated to free locality specifications
and use p->ext.concur.forall_iterator.
* trans-stmt.cc (gfc_trans_forall_1): Updated to use
code->ext.concur.forall_iterator.

gcc/testsuite/ChangeLog:

* gfortran.dg/do_concurrent_10.f90: New test.
* gfortran.dg/do_concurrent_8_f2018.f90: New test.
* gfortran.dg/do_concurrent_8_f2023.f90: New test.
* gfortran.dg/do_concurrent_9.f90: New test.
* gfortran.dg/do_concurrent_all_clauses.f90: New test.
* gfortran.dg/do_concurrent_basic.f90: New test.
* gfortran.dg/do_concurrent_constraints.f90: New test.
* gfortran.dg/do_concurrent_local_init.f90: New test.
* gfortran.dg/do_concurrent_locality_specs.f90: New test.
* gfortran.dg/do_concurrent_multiple_reduce.f90: New test.
* gfortran.dg/do_concurrent_nested.f90: New test.
* gfortran.dg/do_concurrent_parser.f90: New test.
* gfortran.dg/do_concurrent_reduce_max.f90: New test.
* gfortran.dg/do_concurrent_reduce_sum.f90: New test.
* gfortran.dg/do_concurrent_shared.f90: New test.

Signed-off-by: Anuj <anujmohite001@gmail.com>
23 files changed:
gcc/fortran/dump-parse-tree.cc
gcc/fortran/frontend-passes.cc
gcc/fortran/gfortran.h
gcc/fortran/match.cc
gcc/fortran/parse.cc
gcc/fortran/resolve.cc
gcc/fortran/st.cc
gcc/fortran/trans-stmt.cc
gcc/testsuite/gfortran.dg/do_concurrent_10.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_8_f2018.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_8_f2023.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_9.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_all_clauses.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_basic.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_constraints.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_local_init.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_locality_specs.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_multiple_reduce.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_nested.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_parser.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_reduce_max.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_reduce_sum.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/do_concurrent_shared.f90 [new file with mode: 0644]