This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/64726] [OpenACC] ICE with -fopenacc and reduction(+:a)
- From: "burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Thu, 22 Jan 2015 12:33:28 +0000
- Subject: [Bug fortran/64726] [OpenACC] ICE with -fopenacc and reduction(+:a)
- Auto-submitted: auto-generated
- References: <bug-64726-4 at http dot gcc dot gnu dot org/bugzilla/>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64726
--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Patch, lightly tested. (The test case will later fail in gimplify.c with
"sorry, not implemented".)
(In the function below, only op == EXEC_OACC_PARALLEL_LOOP or op ==
EXEC_OACC_KERNELS_LOOP are permitted [otherwise: assert].)
--- a/gcc/fortran/trans-openmp.c
+++ b/gcc/fortran/trans-openmp.c
@@ -3440,3 +3440,3 @@ gfc_trans_oacc_combined_directive (gfc_code *code)
pushlevel ();
- stmt = gfc_trans_omp_do (code, code->op, pblock, &loop_clauses, NULL);
+ stmt = gfc_trans_omp_do (code, EXEC_OACC_LOOP, pblock, &loop_clauses, NULL);
if (TREE_CODE (stmt) != BIND_EXPR)