swift/cpp_test/open_test2.f

      open(unit=7,file='open_test.dat',status='old',position='append')

      write(7,*) ' This is a test '

      stop
      end