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

5 lines
72 B
FortranFixed
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
integer :: i
integer, dimension(10) :: v
forall (i=1:size(v)) v(i) = i