* function.c (dump_stack_clash_frame_info): New function.

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

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