RosettaCodeData/Task/Loops-For/Fortran/loops-for-3.f

5 lines
72 B
FortranFixed
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
integer :: i
integer, dimension(10) :: v
forall (i=1:size(v)) v(i) = i