Searched refs:tarray1 (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
162 r1 = etime (tarray1)
170 if (.not. issum (r1, tarray1(1), tarray1(2))) then
172 + r1, ' /= ', tarray1(1), '+', tarray1(2)
182 + r1, tarray1
192 call etime (tarray1, r1)
193 if (.not. issum (r1, tarray1(1), tarray1(2))) then
195 + r1, ' /= ', tarray1(1), '+', tarray1(2)
208 + r1, tarray1
|