Searched refs:tarray2 (Results 1 – 1 of 1) sorted by relevance
| /openbsd-src/gnu/usr.bin/gcc/gcc/testsuite/g77.f-torture/execute/ |
| H A D | u77-test.f | 44 real tarray1(2), tarray2(2), r1, r2 variable
163 r2 = dtime (tarray2)
175 if (.not. issum (r2, tarray2(1), tarray2(2))) then
177 + r2, ' /= ', tarray2(1), '+', tarray2(2)
189 call dtime (tarray2, r2)
190 if (tarray2(1) .ne. 0. .or. tarray2(2) .ne. 0.) exit
198 if (.not. issum (r2, tarray2(1), tarray2(2))) then
200 + r2, ' /= ', tarray2(1), '+', tarray2(2)
205 + r2, tarray2
|