This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gomp5] Fix taskgroup genericization in Fortran FE
- From: Jakub Jelinek <jakub at redhat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Thu, 29 Jun 2017 11:49:34 +0200
- Subject: [gomp5] Fix taskgroup genericization in Fortran FE
- Authentication-results: sourceware.org; auth=none
- Authentication-results: ext-mx02.extmail.prod.ext.phx2.redhat.com; dmarc=none (p=none dis=none) header.from=redhat.com
- Authentication-results: ext-mx02.extmail.prod.ext.phx2.redhat.com; spf=pass smtp.mailfrom=jakub at redhat dot com
- Dkim-filter: OpenDKIM Filter v2.11.0 mx1.redhat.com B2BEEC1F81
- Dmarc-filter: OpenDMARC Filter v1.3.2 mx1.redhat.com B2BEEC1F81
- Reply-to: Jakub Jelinek <jakub at redhat dot com>
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