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

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

! { dg-do run }
program main
  implicit none
  integer :: d1
  !$omp target map(from: d1)
  !$omp teams distribute parallel do simd default(none) lastprivate(d1) num_teams (2) num_threads (1)
  do d1 = 0, 31
  end do
  !$omp end target
  if (d1 /= 32) stop 3
end program main