Searched refs:NEIGHBOR (Results 1 - 1 of 1) sorted by relevance

/netbsd-6-1-5-RELEASE/external/gpl3/gcc/dist/libgomp/testsuite/libgomp.fortran/appendix-a/
H A Da.18.1.f9020 INTEGER IAM, NEIGHBOR variable in program:A18
21 !$OMP PARALLEL PRIVATE(IAM, NEIGHBOR) SHARED(WORK, ISYNC) NUM_THREADS(4)
39 NEIGHBOR = OMP_GET_NUM_THREADS()
41 NEIGHBOR = IAM - 1
43 DO WHILE (ISYNC(NEIGHBOR) .EQ. 0)
47 RESULT(IAM) = FN2(WORK(NEIGHBOR), WORK(IAM))
51 NEIGHBOR = 4
53 NEIGHBOR = I - 1
55 IF (RESULT(I) .NE. I * 2 + NEIGHBOR * 2) THEN

Completed in 39 milliseconds