How about this?
integer, parameter :: MUL = 7 integer :: i, a(3) = (/(i,i=1,3)/)*MUL write(*,*)a end
OR, equivalently,
integer, parameter :: MUL = 7 integer :: i, a(3) = [1:3]*MUL write(*,*)a end