[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
This commit is contained in:
Thomas Schwinge 2018-12-09 13:47:35 +01:00 committed by Thomas Schwinge
parent 84ca08d2d5
commit b22b7d462e
5 changed files with 14 additions and 6 deletions

View File

@ -1,3 +1,9 @@
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>
PR fortran/88048

View File

@ -5895,8 +5895,6 @@ resolve_oacc_loop_blocks (gfc_code *code)
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)
gfc_error ("Clause SEQ conflicts with GANG at %L", &code->loc);
if (code->ext.omp_clauses->worker)

View File

@ -1,3 +1,9 @@
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>
PR fortran/88048

View File

@ -152,8 +152,7 @@ subroutine test1
! { dg-error "ACC LOOP iteration variable must be of type integer" "" { target *-*-* } 150 }
end do
! Both seq and independent are not allowed
!$acc loop independent seq ! { dg-error "SEQ conflicts with INDEPENDENT" }
!$acc loop independent seq
do i = 1,10
enddo

View File

@ -152,8 +152,7 @@ subroutine test1
! { dg-error "ACC LOOP iteration variable must be of type integer" "" { target *-*-* } 150 }
end do
! Both seq and independent are not allowed
!$acc loop independent seq ! { dg-error "SEQ conflicts with INDEPENDENT" }
!$acc loop independent seq
do i = 1,10
enddo