ex0501.for

来自「Fortran 95程序设计【彭国伦】 Source_Code.rarFortr」· FOR 代码 · 共 13 行

	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