| ! { dg-do run } |
| |
| ! { dg-additional-options -Wuninitialized } |
| |
| ! { dg-additional-options "-Wopenacc-parallelism" } for testing/documenting |
| ! aspects of that functionality. |
| |
| ! subroutine reduction |
| |
| program reduction |
| integer, parameter :: n = 40, c = 10 |
| integer :: i, vsum, gs, ws, vs, cs, ns |
| |
| call redsub_gang (gs, n, c) |
| call redsub_worker (ws, n, c) |
| call redsub_vector (vs, n, c) |
| call redsub_combined (cs, n, c) |
| call redsub_nested (ns, n, c) |
| |
| vsum = 0 |
| |
| ! Verify the results |
| do i = 1, n |
| vsum = vsum + c |
| end do |
| |
| if (gs .ne. vsum) STOP 1 |
| if (ws .ne. vsum) STOP 2 |
| if (vs .ne. vsum) STOP 3 |
| if (cs .ne. vsum) STOP 4 |
| if (ns .ne. vsum) STOP 5 |
| end program reduction |
| |
| subroutine redsub_gang(sum, n, c) |
| integer :: sum, n, c |
| |
| sum = 0 |
| |
| !$acc parallel copyin (n, c) num_gangs(n) copy(sum) |
| !$acc loop reduction(+:sum) gang |
| ! { dg-bogus {'sum\.[0-9]+' is used uninitialized} TODO { xfail *-*-* } .-1 } |
| ! { dg-note {'sum\.[0-9]+' was declared here} {} { target *-*-* } .-2 } |
| do i = 1, n |
| sum = sum + c |
| end do |
| !$acc end parallel |
| end subroutine redsub_gang |
| |
| subroutine redsub_worker(sum, n, c) |
| integer :: sum, n, c |
| |
| sum = 0 |
| |
| !$acc parallel copyin (n, c) num_workers(4) vector_length (32) copy(sum) |
| ! { dg-warning "region is vector partitioned but does not contain vector partitioned code" "" { target *-*-* } .-1 } |
| !$acc loop reduction(+:sum) worker |
| ! { dg-bogus {'sum\.[0-9]+' is used uninitialized} TODO { xfail *-*-* } .-1 } |
| ! { dg-note {'sum\.[0-9]+' was declared here} {} { target *-*-* } .-2 } |
| do i = 1, n |
| sum = sum + c |
| end do |
| !$acc end parallel |
| end subroutine redsub_worker |
| |
| subroutine redsub_vector(sum, n, c) |
| integer :: sum, n, c |
| |
| sum = 0 |
| |
| !$acc parallel copyin (n, c) vector_length(32) copy(sum) |
| !$acc loop reduction(+:sum) vector |
| ! { dg-bogus {'sum\.[0-9]+' is used uninitialized} TODO { xfail *-*-* } .-1 } |
| ! { dg-note {'sum\.[0-9]+' was declared here} {} { target *-*-* } .-2 } |
| do i = 1, n |
| sum = sum + c |
| end do |
| !$acc end parallel |
| end subroutine redsub_vector |
| |
| subroutine redsub_combined(sum, n, c) |
| integer :: sum, n, c |
| |
| sum = 0 |
| |
| !$acc parallel num_gangs (8) num_workers (4) vector_length(32) copy(sum) |
| !$acc loop reduction(+:sum) gang worker vector |
| ! { dg-bogus {'sum\.[0-9]+' is used uninitialized} TODO { xfail *-*-* } .-1 } |
| ! { dg-note {'sum\.[0-9]+' was declared here} {} { target *-*-* } .-2 } |
| do i = 1, n |
| sum = sum + c |
| end do |
| !$acc end parallel |
| end subroutine redsub_combined |
| |
| subroutine redsub_nested(sum, n, c) |
| integer :: sum, n, c |
| integer :: ii, jj |
| |
| ii = n / 10; |
| jj = 10; |
| sum = 0 |
| |
| !$acc parallel num_gangs (8) copy(sum) |
| !$acc loop reduction(+:sum) gang |
| ! { dg-bogus {'sum\.[0-9]+' is used uninitialized} TODO { xfail *-*-* } .-1 } |
| ! { dg-note {'sum\.[0-9]+' was declared here} {} { target *-*-* } .-2 } |
| do i = 1, ii |
| !$acc loop reduction(+:sum) vector |
| ! { dg-bogus {'sum\.[0-9]+' may be used uninitialized} TODO { xfail { ! __OPTIMIZE__ } } .-1 } |
| ! { dg-note {'sum\.[0-9]+' was declared here} {} { target { ! __OPTIMIZE__ } } .-2 } |
| do j = 1, jj |
| sum = sum + c |
| end do |
| end do |
| !$acc end parallel |
| end subroutine redsub_nested |