libgomp/testsuite/libgomp.fortran/stack.f90

   1 ! { dg-do run }
   2 program stack
   3   implicit none
   4   integer id
   5   integer ilocs(2)
   6   integer omp_get_thread_num, foo
   7   call omp_set_num_threads (2)
   8 !$omp parallel private (id)
   9   id = omp_get_thread_num() + 1
  10   ilocs(id) = foo()
  11 !$omp end parallel
  12   ! Check that the two threads are not sharing a location for
  13   ! the array x in foo()
  14   if (ilocs(1) .eq. ilocs(2)) call abort
  15 end program stack
  16
  17 integer function foo ()
  18   implicit none
  19   real x(100,100)
  20   foo = loc(x)
  21 end function foo