Searched refs:fstatb (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 | 60 integer fstatb (13), statb (13) variable
303 i = fstat (3, fstatb)
322 if (fstatb (i) .ne. statb (i)) then
324 + array element ', i, ' value ', fstatb (i), statb (i)
328 i = lstat ('foo', fstatb)
330 if (fstatb (i) .ne. statb (i)) then
332 + 'array element ', i, ' value ', fstatb (i), statb (i)
|