anchor.diff:  C     Attempt to read INT8 via the F77 bindings
         PROGRAM GETTST
         INCLUDE "getdata.f"
  -      CHARACTER*256 fildir
  +      CHARACTER*12 fildir
         PARAMETER (fildir = 'test_dirfile')
  -      CHARACTER*256 frmat
  +      CHARACTER*19 frmat
         PARAMETER (frmat = 'test_dirfile/format')
  -      CHARACTER*256 dat
  +      CHARACTER*17 dat
         PARAMETER (dat = 'test_dirfile/data')
  -      CHARACTER*256 frmdat
  +      CHARACTER*15 frmdat
         PARAMETER (frmdat = 'data RAW INT8 8')
         INTEGER*1 c(8)
         INTEGER*1 datdat(80)
  
positive.code:    20 CONTINUE
  
        OPEN(1, FILE=frmat, STATUS='NEW')
        WRITE(1, *) TRIM(frmdat)
        CLOSE(1, STATUS='KEEP')
  
        OPEN(1, FILE=dat, FORM='UNFORMATTED', ACCESS='DIRECT', RECL=80,
  
negative.code:       INTEGER d;
        INTEGER n;
        INTEGER e;
  
        DO 10 i = 1, 8
        c(i) = 0;
  