usr/src/usr.lib/libI77/test/f2.f

C From aho@ Tue Aug 23 13:07:25 1983
C Date: Tue, 23 Aug 83 13:04:19 PDT
C From: aho@@ (Alan Hopkins)
C Subject: 4.2 rewind problem
C
C Here is a chunk of code that does not seem to operate properly
C on bach.  The file does not contain any data at completion.

         program aho
         open ( unit=13, form='unformatted', status='unknown',
     .   access='sequential',file='UNIX' )
         do 5 i = 1, 2
            ieot = -i
            write(13) ieot
    5    continue
         endfile(13)
         call system("od -Iw12 UNIX")
         write(13) 3
         write(13) 4
C        call flush(13)
         call system("od -Iw12 UNIX")
         backspace(13)
         backspace(13)
         read(13) i
         write(*,*) "3 ==", i
         write(13) 5
         rewind(13)
         call system("od -Iw12 UNIX")
         close(13)
         call system("od -Iw12 UNIX")
         stop
         end