Fix gcc.c-torture/execute/ieee/cdivchkf.c on hpux

[official-gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / pr70289.f90

! { dg-do run }
!
program foo
  implicit none
  integer :: i
  integer :: temp = 0
  integer :: temp2 = 0

  !$acc parallel
  !$acc loop gang private(temp)
  do i=1, 10000
     temp = 0
  enddo
  !$acc end parallel

  !$acc parallel reduction(+:temp2)
  !$acc loop gang reduction(+:temp2)
  do i=1, 10000
     temp2 = 0
  enddo
  !$acc end parallel
end program foo