Fortran , do () () . , ( 0.5). . R818 R819 (8.1.6.2) Fortran 2008. : .
, . Fortran Fortran 95. , Fortran 95 , .
? , , . .
do x=0., 1., 0.1
...
end do
? ( Fortran 90) MAX(INT((m2 – m1 + m3) / m3), 0), (m1 - (0.), m2 (1.) m3 (0.1)). 10 11 ( 9)? : , 0.1 , INT . .
,
do y_loop = 0, 6
y = 1 + y_loop/2.
...
end do
y = 1
do
if (y>4) exit
...
y = y+0.5
end do
, .f90 .f95. gfortran , Fortran 90 ( ). , , -std=legacy. , -std=f95 ( ) .
Fortran 90.
real y
integer i
loop_real: do y=1, 4, 0.5
end do loop_real
loop_integer: do i=1, 4, 0.5
end do loop_integer
loop_real , loop_integer. . INT(0.5) - 0.