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 21