[gcc.git] / libgomp / testsuite / libgomp.fortran / nested-fn.f90

! { dg-do run }

program foo
  integer :: count
  call s1
contains

  subroutine s1 ()
    integer :: i, count

    count = 0

    !$omp target parallel do map(tofrom:count) reduction(+:count) private(i)
    !$omp unroll partial
    do i = 1, 100
      count = count + 1
    end do

    if (count .ne. 100) stop 1

  end subroutine

end program
Commit	Line	Data
804c0f35 JJ	1	! { dg-do run }
	2
	3	program foo
	4	integer :: count
	5	call s1
	6	contains
	7
	8	subroutine s1 ()
	9	integer :: i, count
	10
	11	count = 0
	12
	13	!$omp target parallel do map(tofrom:count) reduction(+:count) private(i)
	14	!$omp unroll partial
	15	do i = 1, 100
	16	count = count + 1
	17	end do
	18
	19	if (count .ne. 100) stop 1
	20
	21	end subroutine
	22
	23	end program