Repeat count for modern-style initializations

[Beliavsky]

There are implied do-loops, for example

implicit none
integer :: i
integer :: v(5) = [(4, i=1,2), (8, i=1,3)]
print "(*(1x,i0))", v ! 4 4 8 8 8
end