OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/64726 ([OpenACC] ICE with -fopenacc and reduction(+:a)) 

2015-01-23  Tobias Burnus  <burnus@net-b.de>

        PR fortran/64726
        * trans-openmp.c (gfc_trans_oacc_combined_directive): Fix
        loop generation.

2015-01-23  Tobias Burnus  <burnus@net-b.de>

        PR fortran/64726
        * gfortran.dg/goacc/combined_loop.f90: New.

From-SVN: r220028
This commit is contained in:
Tobias Burnus 2015-01-23 08:01:34 +01:00 committed by Tobias Burnus
parent 631ff3e1cd
commit c146acedf5
4 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2015-01-23 Tobias Burnus <burnus@net-b.de>
PR fortran/64726
* trans-openmp.c (gfc_trans_oacc_combined_directive): Fix
loop generation.
2015-01-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/61933

2
gcc/fortran/trans-openmp.c
View File

@ -3438,7 +3438,7 @@ gfc_trans_oacc_combined_directive (gfc_code *code)
pblock = &block;
else
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)
stmt = build3_v (BIND_EXPR, NULL, stmt, poplevel (1, 0));
else

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-01-23 Tobias Burnus <burnus@net-b.de>
PR fortran/64726
* gfortran.dg/goacc/combined_loop.f90: New.
2015-01-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/61933

12
gcc/testsuite/gfortran.dg/goacc/combined_loop.f90 Normal file
View File

@ -0,0 +1,12 @@
! { dg-do compile }
!
! PR fortran/64726
!
subroutine oacc1()
implicit none
integer :: i
integer :: a
!$acc parallel loop reduction(+:a) ! { dg-excess-errors "sorry, unimplemented: directive not yet implemented" }
do i = 1,5
enddo
end subroutine oacc1