ex0501.for

Fortran 95程序设计&Code-彭国伦

	PROGRAM ex0501
	IMPLICIT NONE
	REAL speed

	WRITE(*,*) "speed:"
	READ (*,*) speed
	
	IF ( speed .GT. 100 ) then ! FORTRAN 77要用缩写.GT.代表大于">"
	  write(*,*) "Slow down."
	END IF

	STOP
	END