1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)ertst.f 5.2 (Berkeley) 04/12/91 8C 9 10 character*39 errno 11 character*32 gerror 12 external gerror 13 14 do 100 i = 0, 36 15 call serrno(i) 16 write(errno,'("[",i3,"] ",a,":")') ierrno(), gerror() 17 call perror(errno) 18 100 continue 19 20 do 200 i = 99, 123 21 call serrno(i) 22 write(errno,'("[",i3,"] ",a,":")') ierrno(), gerror() 23 call perror(errno) 24 200 continue 25 26 write(**,*) "-----" 27 call serrno(-1) 28 call perror("Last line ") 29 end 30