与传统的DO语句相比，Implied DO语句结构简单（仅一行代码）。 示例： program mainimplicit noneinteger :: iinteger(dimension = 3) :: iarrayiarray = 4print *, (iarry(i), i = 1, 3)end program main 将打印出： 4    4    4