4.3BSD - /usr/src/usr.lib/libU77/test/ertst.f

   1:         character*39 errno
   2:         character*32 gerror
   3:         external gerror
   4: 
   5:         do 100 i = 0, 36
   6:         call serrno(i)
   7:         write(errno,'("[",i3,"] ",a,":")') ierrno(), gerror()
   8:         call perror(errno)
   9:   100   continue
  10: 
  11:         do 200 i = 99, 123
  12:         call serrno(i)
  13:         write(errno,'("[",i3,"] ",a,":")') ierrno(), gerror()
  14:         call perror(errno)
  15:   200   continue
  16: 
  17:         write(**,*) "-----"
  18:         call serrno(-1)
  19:         call perror("Last line          ")
  20:         end