read.c (read_x): Take int argument instead of fnode * and digging the N from F->u.n.

read.c (read_x): Take int argument instead of fnode * and digging the N from F->u.n.

	* io/read.c (read_x): Take int argument instead of fnode * and
	digging the N from F->u.n.
	* io/io.h (read_x): Adjust prototype.
	* io/transfer.c (formatted_transfer): Adjust callers.  Don't clobber
	f->u.n for FMT_T.

	* gfortran.dg/fmt_t_1.f90: New test.

From-SVN: r103811