Неявная инициализация массива цикла do

Я хочу инициализировать массив в одной строке с помощью неявного цикла do . Однако я всегда получаю синтаксическую ошибку или ошибку формы. Может ли кто-нибудь помочь мне исправить следующую конструкцию?

integer myarray :: (maxdim, nr)

myarray(1:maxdim,nr) = (/ (/i,i=1,maxdim/),nr /)