Searched refs:WORK2 (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.f904 SUBROUTINE WORK2() subroutine
5 END SUBROUTINE WORK2
18 CALL WORK2()
H A Da.16.1.f908 REAL FUNCTION WORK2(I) function
10 WORK2 = 2.0 * I
12 END FUNCTION WORK2
22 Y(I) = Y(I) + WORK2(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 106 milliseconds