program writetest
implicit none
integer ::  i
real    ::  x

 i = 99
 x = 99.0
 open(unit=12, file='testdata.dat')
 write(12, *) i, x, 'A'
 close(12)

stop
end
