1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do run }
! Insert a unit into cache at the beginning, then start multiple
! threads to access the same unit concurrency, unit will be found in unit cache during the read lock phase.
! This test case is used to test the read lock when access unit cache and list.
program main
use omp_lib
implicit none
integer:: thread_id, total_threads, i, j
total_threads = omp_get_max_threads ()
open (10, file='tst.dat', asynchronous="yes")
!$omp parallel private (thread_id, i, j)
do i = 1, 100
thread_id = omp_get_thread_num ()
do j = 1, 100
write (10, *, asynchronous="yes") thread_id, i
end do
end do
!$omp end parallel
! call inquire with file parameter to test find_file in unix.c
call flush ()
close (10, status="delete")
end program
|
