2022-11-02 Thomas Schwinge <thomas@codesourcery.com>
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-1-directive.f90:
+ XFAIL some OpenACC 'kernels' confusion.
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-1-runtime.f90:
+ Likewise.
+ * testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90:
+ Likewise.
+
Backported from master:
2022-11-02 Thomas Schwinge <thomas@codesourcery.com>
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = i * a
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O2', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = fun1 (i) ! { dg-line l[incr c] }
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
!$acc parallel loop ! { dg-line l[incr c] }
! { dg-note {variable 'i' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = i * a
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O2', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = fun1 (i) ! { dg-line l[incr c] }
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
!$acc parallel loop ! { dg-line l[incr c] }
! { dg-note {variable 'i' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = i * a
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O2', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = fun1 (i) ! { dg-line l[incr c] }
! { dg-note {variable 'i' ought to be adjusted for OpenACC privatization level: 'vector'} {} { target *-*-* } l$c }
! { dg-note {variable 'i' adjusted for OpenACC privatization level: 'vector'} {} { target { ! openacc_host_selected } } l$c }
! { dg-note {variable 'i\.[0-9]+' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0
!$acc parallel loop ! { dg-line l[incr c] }
! { dg-note {variable 'i' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} {} { target *-*-* } l$c }
+ ! { dg-bogus {missed: 'auto' loop has not been analyzed} TODO { xfail __OPTIMIZE__ } l$c }
+ ! '-O1', '-O3', '-Os' only.
! { dg-optimized {assigned OpenACC gang vector loop parallelism} {} { target *-*-* } l$c }
do i = 1, n
b(i) = 1.0