* [gomp5] Fix taskgroup genericization in Fortran FE
@ 2017-06-29 9:49 Jakub Jelinek
0 siblings, 0 replies; only message in thread
From: Jakub Jelinek @ 2017-06-29 9:49 UTC (permalink / raw)
To: gcc-patches
Hi!
Apparently I forgot to test fortran last time during the
http://gcc.gnu.org/ml/gcc-patches/2017-06/msg00839.html
changes. Fixed thusly, committed to gomp-5_0-branch.
2017-06-29 Jakub Jelinek <jakub@redhat.com>
* trans-openmp.c (gfc_trans_omp_taskgroup): Build OMP_TASKGROUP using
make_node instead of build1_loc.
--- gcc/fortran/trans-openmp.c.jj 2017-05-24 11:47:41.000000000 +0200
+++ gcc/fortran/trans-openmp.c 2017-06-29 11:43:00.620323982 +0200
@@ -4546,8 +4546,12 @@ gfc_trans_omp_task (gfc_code *code)
static tree
gfc_trans_omp_taskgroup (gfc_code *code)
{
- tree stmt = gfc_trans_code (code->block->next);
- return build1_loc (input_location, OMP_TASKGROUP, void_type_node, stmt);
+ tree body = gfc_trans_code (code->block->next);
+ tree stmt = make_node (OMP_TASKGROUP);
+ TREE_TYPE (stmt) = void_type_node;
+ OMP_TASKGROUP_BODY (stmt) = body;
+ OMP_TASKGROUP_CLAUSES (stmt) = NULL_TREE;
+ return stmt;
}
static tree
Jakub
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2017-06-29 9:49 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2017-06-29 9:49 [gomp5] Fix taskgroup genericization in Fortran FE Jakub Jelinek
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).