anchor.diff:   print 101,i,fa2(i),da2(i),ia2(i),sa2(i),ba2(i),uia2(i),usa2(i),uba2(i),ca(i),za(i)
   enddo
   1111 continue ! write data into standard file
  +if(command_argument_count()>0) call system('rm -f missing.fst')   ! get rid of an old test file if present
   inquire(file='missing.fst',EXIST=file_exists)
   if(file_exists) then
  -  print *,"============= missing.fst exists, write test will be skipped ============"
  +  print 1,"========================================================================="
  +  print 1,"============= missing.fst exists, write test will be skipped ============"
  +  print 1,"========================================================================="
     goto 2222 ! skip write test if file exists
   endif
   print *,'============= writing into standard file with and without missing values ============'
  
positive.code: subroutine test_missing_values
  !
  !  rm -f missing.fst ; MISSING_VALUE_FLAGS="99.0 127 255" ./a.out
  
negative.code: integer, dimension(ASIZE) :: uia, uia2
  integer *2, dimension(ASIZE) :: sa, sa2
  integer *1, dimension(ASIZE) :: ba, ba2
  integer *4, dimension(ASIZE) :: bba, bba2
  integer *2, dimension(ASIZE) :: usa, usa2
  integer *1, dimension(ASIZE) :: uba, uba2
  real *4, dimension(ASIZE) :: fa, fa2, fa3
  