!! R538 data-i-do-object
!    is array-element
!    or scalar-structure-component
!    or data-implied-do
!
data ( truth(i),beauty(i), i=1,2,3) / 15*0. /
data ( ugly(i),lies(i),this(i),that(i),theother(i), i=1,2,3) / 15*0. /
data (( foo(j,i), i=1,j), j=1,5) / 15*0. /
end
