| 12345678910111213141516171819202122 |
- ! { dg-do run }
- program stack
- implicit none
- integer id
- integer ilocs(2)
- integer omp_get_thread_num, foo
- call omp_set_num_threads (2)
- !$omp parallel private (id)
- id = omp_get_thread_num() + 1
- ilocs(id) = foo()
- !$omp end parallel
- ! Check that the two threads are not sharing a location for
- ! the array x in foo()
- if (ilocs(1) .eq. ilocs(2)) call abort
- end program stack
- integer function foo ()
- implicit none
- real x(100,100)
- foo = loc(x)
- end function foo
|
