1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)gpctst.f 5.2 (Berkeley) 04/12/91 8C 9 10 integer getc, putc, fgetc, fputc, oer 11 character c 12 open(1,status='s') 13 write(*,*) "Go" 14 10 ier = getc(c) 15 if (ier .eq. 0) then 16 oer = fputc(1,c) 17 goto 10 18 else 19 call perror("end of getc/fputc test") 20 write(*,*) "ier=", ier, "oer=", oer 21 endif 22 23 rewind 1 24 write(*,*) "Go" 25 20 ier = fgetc(1, c) 26 if (ier .eq. 0) then 27 oer = putc(c) 28 goto 20 29 else 30 call perror("end of fgetc/putc test") 31 write(*,*) "ier=", ier, "oer=", oer 32 endif 33 end 34