swift/cpp_test/open_test1.f

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

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

      stop
      end