RosettaCodeData/Task/Loop-over-multiple-arrays-s.../HicEst/loop-over-multiple-arrays-s...

9 lines
105 B
Plaintext

CHARACTER :: A = "abc"
REAL :: C(3)
C = $ ! 1, 2, 3
DO i = 1, 3
WRITE() A(i), "ABC"(i), C(i)
ENDDO