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
Last modified: 1983-05-20
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 483
Valid CSS Valid XHTML 1.0 Strict