Commit b22b7d46 by Thomas Schwinge Committed by Thomas Schwinge

[PR88420] Fortran OpenACC "Clause SEQ conflicts with INDEPENDENT"

The Fortran front end declares that the OpenACC "Clause SEQ conflicts with
INDEPENDENT".  While that combination doesn't make too much sense indeed, it's
still valid; these are orthogonal concepts.

	gcc/fortran/
	PR fortran/88420
	* openmp.c (resolve_oacc_loop_blocks): Remove "Clause SEQ
	conflicts with INDEPENDENT" diagnostic.
	gcc/testsuite/
	PR fortran/88420
	* gfortran.dg/goacc/loop-1-2.f95: Update.
	* gfortran.dg/goacc/loop-1.f95: Likewise.

From-SVN: r266920
parent 84ca08d2
2018-12-09 Thomas Schwinge <thomas@codesourcery.com>
PR fortran/88420
* openmp.c (resolve_oacc_loop_blocks): Remove "Clause SEQ
conflicts with INDEPENDENT" diagnostic.
2018-12-08 Steven G. Kargl <kargl@gcc.gnu.org> 2018-12-08 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88048 PR fortran/88048
......
...@@ -5895,8 +5895,6 @@ resolve_oacc_loop_blocks (gfc_code *code) ...@@ -5895,8 +5895,6 @@ resolve_oacc_loop_blocks (gfc_code *code)
if (code->ext.omp_clauses->seq) if (code->ext.omp_clauses->seq)
{ {
if (code->ext.omp_clauses->independent)
gfc_error ("Clause SEQ conflicts with INDEPENDENT at %L", &code->loc);
if (code->ext.omp_clauses->gang) if (code->ext.omp_clauses->gang)
gfc_error ("Clause SEQ conflicts with GANG at %L", &code->loc); gfc_error ("Clause SEQ conflicts with GANG at %L", &code->loc);
if (code->ext.omp_clauses->worker) if (code->ext.omp_clauses->worker)
......
2018-12-09 Thomas Schwinge <thomas@codesourcery.com>
PR fortran/88420
* gfortran.dg/goacc/loop-1-2.f95: Update.
* gfortran.dg/goacc/loop-1.f95: Likewise.
2018-12-08 Steven G. Kargl <kargl@gcc.gnu.org> 2018-12-08 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88048 PR fortran/88048
......
...@@ -152,8 +152,7 @@ subroutine test1 ...@@ -152,8 +152,7 @@ subroutine test1
! { dg-error "ACC LOOP iteration variable must be of type integer" "" { target *-*-* } 150 } ! { dg-error "ACC LOOP iteration variable must be of type integer" "" { target *-*-* } 150 }
end do end do
! Both seq and independent are not allowed !$acc loop independent seq
!$acc loop independent seq ! { dg-error "SEQ conflicts with INDEPENDENT" }
do i = 1,10 do i = 1,10
enddo enddo
......
...@@ -152,8 +152,7 @@ subroutine test1 ...@@ -152,8 +152,7 @@ subroutine test1
! { dg-error "ACC LOOP iteration variable must be of type integer" "" { target *-*-* } 150 } ! { dg-error "ACC LOOP iteration variable must be of type integer" "" { target *-*-* } 150 }
end do end do
! Both seq and independent are not allowed !$acc loop independent seq
!$acc loop independent seq ! { dg-error "SEQ conflicts with INDEPENDENT" }
do i = 1,10 do i = 1,10
enddo enddo
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment