anchor.diff:  status=fstlir(sa2,12,ni,nj,nk,-1,' ',12,-1,-1,' ',' ')    ! signed short with missing
   call fst_data_length(2)
   status=fstlir(usa2,12,ni,nj,nk,-1,' ',10,-1,-1,' ',' ')   ! unsigned short with missing
  +status=fstlir(bba2,12,ni,nj,nk,-1,' ',10,-1,-1,' ',' ')   ! unsigned short with missing, read into full size integer
   
   call fst_data_length(1)
   status=fstlir(ba2,12,ni,nj,nk,-1,' ',14,-1,-1,' ',' ')    ! signed byte with missing
   call fst_data_length(1)
   status=fstlir(uba2,12,ni,nj,nk,-1,' ',16,-1,-1,' ',' ')   ! unsigned byte with missing
  -
  -print *,'---------------------------------------------------------------------------------------------------'
  -print *,'#    float  <f16> double             int  short   byte   uint ushort  ubyte     float  <IEEE> double     complex 32    complex 64'
  -print *,'---------------------------------------------------------------------------------------------------'
  +status=fstlir(bba,12,ni,nj,nk,-1,' ',16,-1,-1,' ',' ')   ! unsigned byte with missing, read into full size integer
  +
  +1 format(A)
  +print 1,'---------------------------------------------------------------------------------------------------'
  +print 1,'#    float  <f16> double             int  short   byte   uint ushort  ubyte     float  <IEEE> double     complex 32    complex 64'
  +print 1,'---------------------------------------------------------------------------------------------------'
   do i=1,ASIZE
    print 101,i,fa2(i),da2(i),ia2(i),sa2(i),ba2(i),uia2(i),usa2(i),uba2(i),fa3(i),da3(i),ca3(i),za3(i)
  +enddo
  +print 1,'---------------------------------------------------------------------------------------------------'
  +do i=1,ASIZE
  + print 101,i,fa2(i),da2(i),ia2(i),sa2(i),ba2(i),uia2(i),bba2(i),bba(i),fa3(i),da3(i),ca3(i),za3(i)
   enddo
   
   call fstfrm(12)
  
positive.code: call fstecr(da,work,-64,11,0,0,0,ASIZE,1,1,18,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,69,.false.) ! IEEE64 with missing
  
  call fst_data_length(2)
  call fstecr(usa,work,-8,11,0,0,0,ASIZE,1,1,9,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,2,.false.)  ! unsigned short
  call fst_data_length(2)
  call fstecr(usa,work,-8,11,0,0,0,ASIZE,1,1,10,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,66,.false.)! unsigned short with missing
  
  call fst_data_length(2)
  call fstecr(sa,work,-8,11,0,0,0,ASIZE,1,1,11,0,0,'XX','YYYY','ETIKET','X',0,0,0,0,4,.false.)  ! signed short
  
negative.code: sa(2)=sm   ; sa(ASIZE-1)=sm ; sa(4)=sm   ; sa(ASIZE-3)=sm
  ba(2)=bm   ; ba(ASIZE-1)=bm ; ba(1)=bm
  uia(3)=uim ; uia(ASIZE-2)=uim
  usa(3)=usm ; usa(ASIZE-2)=usm ; usa(ASIZE)=-2
  uba(3)=ubm ; uba(ASIZE-2)=ubm ; uba(ASIZE)=-3
  ia(ASIZE/2)=125      ! set to 127 to force error message
  sa(ASIZE/2)=124      ! set to 127 to force error message
  ba(ASIZE/2)=123      ! set to 127 to force error message
  