TESTFORM.f95

	PROGRAM TESTFORM
!
! Purpose: To demonstrate the use of the FORMAT statement
!
	IMPLICIT NONE
	REAL::Z				! To contain real input
	INTEGER::I,J			! To contain integer input
	CHARACTER(LEN=10)::ALPHA	! To contain character input
!
	WRITE(*,50,ADVANCE='NO')
   50	FORMAT('Enter digits 0 to 9 twice in succession: ')
	READ(*,100)ALPHA,I,Z,J
! 100	FORMAT(1X,A5,I5,F6.2,I3)
  100	FORMAT(A8,I4,2X,F4.2,I2)
	WRITE(*,*)ALPHA,I,J,Z
	STOP
	END PROGRAM TESTFORM