re PR libfortran/19872 ([4.0 only] closed and re-opened file not overwriten)

PR fortran/19872
* io/transfer.c (data_transfer_init): truncate an existing
  file on the first write.

Co-Authored-By: Steven G. Kargl <kargls@comcast.net>

From-SVN: r97937