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

/netbsd-6-1-5-RELEASE/external/gpl3/gcc/dist/libgomp/testsuite/libgomp.fortran/appendix-a/
H A Da10.1.f902 SUBROUTINE WORK1() subroutine
3 END SUBROUTINE WORK1
11 CALL WORK1()
H A Da.16.1.f902 REAL FUNCTION WORK1(I) function
4 WORK1 = 1.0 * I
6 END FUNCTION WORK1
21 X(INDEX(I)) = X(INDEX(I)) + WORK1(I)
H A Da.40.1.f9044 INTEGER WORK1, WORK2, WORK3 local in subroutine:A40
45 EXTERNAL WORK1, WORK2, WORK3
48 CALL INCR_PAIR(P, WORK1(), WORK2())

Completed in 115 milliseconds