C	Programme test2.for
C	gfortran test2.for -o test2f; ./test2f
	PROGRAM test2
	INTEGER*2 B/1/,I
	REAL*4 R
	DO WHILE (B.GT.0)
	  WRITE(*,'(A,$)') "Borne:? "
	  READ(*,*) B
	  DO I=1,B
	    R=SQRT(REAL(I))
	    WRITE(*,'("I= ",I0," I^2= ",I0," I^1/2= ",F0.5)') I,I**2,R
	  END DO
	END DO
	STOP 'Fin du programme test2.for'
	END PROGRAM