ex0602.for

经典的fortran95编程书,知名作者彭国伦 书的配套原程序,

	PROGRAM ex0602
	IMPLICIT NONE
	INTEGER limit
	PARAMETER(limit=10)
	INTEGER counter
	INTEGER ans
	DATA ans /0/

	DO 100, counter=2, limit, 2
100	  ans = ans + counter
      
	WRITE(*,*) ans

	STOP
	END