RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/HicEst/loop-over-multiple-arrays-simultaneously.hicest

CHARACTER :: A = "abc"
REAL ::  C(3)

C = $ ! 1, 2, 3

DO i = 1, 3
   WRITE() A(i), "ABC"(i), C(i)
ENDDO