libgomp/testsuite/libgomp.oacc-fortran/pr70643.f90

   1 ! { dg-do run }
   2
   3 ! { dg-additional-options -Wuninitialized }
   4
   5 MODULE reduction_test
   6
   7 CONTAINS
   8
   9 SUBROUTINE reduction_kernel(x_min,x_max,y_min,y_max,arr,sum)
  10
  11   IMPLICIT NONE
  12
  13   INTEGER      :: x_min,x_max,y_min,y_max
  14   REAL(KIND=8), DIMENSION(x_min-2:x_max+2,y_min-2:y_max+2) :: arr
  15   REAL(KIND=8) :: sum
  16
  17   INTEGER      :: j,k
  18
  19 !$ACC DATA PRESENT(arr) COPY(sum)
  20 !$ACC PARALLEL LOOP REDUCTION(+ : sum)
  21   ! { dg-bogus {'sum\.[0-9]+' is used uninitialized} TODO { xfail *-*-* } .-1 }
  22   !   { dg-note {'sum\.[0-9]+' was declared here} {} { target *-*-* } .-2 }
  23   DO k=y_min,y_max
  24     DO j=x_min,x_max
  25       sum=sum+arr(j,k)
  26     ENDDO
  27   ENDDO
  28 !$ACC END PARALLEL LOOP
  29 !$ACC END DATA
  30 END SUBROUTINE reduction_kernel
  31
  32 END MODULE reduction_test
  33
  34 program main
  35     use reduction_test
  36
  37     integer :: x_min,x_max,y_min,y_max
  38     real(kind=8), dimension(1:10,1:10) :: arr
  39     real(kind=8) :: sum
  40
  41     x_min = 1
  42     x_max = 2
  43     y_min = 1
  44     y_max = 2
  45
  46     arr(:,:) = 1.0
  47
  48     sum = 0.0
  49
  50     !$acc data copy(arr)
  51
  52     call reduction_kernel(x_min,x_max,y_min,y_max,arr,sum)
  53
  54     !$acc end data
  55
  56     if (sum .ne. 4.0) STOP 1
  57 end program