	PROGRAM main
	 IMPLICIT NONE

	 REAL    :: F = 123.456789

	 print '(F7.2, 4X, F7.2)',   F, F, F, F, F, F, F, F

	 print *, "------------------"

	 print '(F7.2, 4X, (F7.2))', F, F, F, F, F, F, F, F



	END
