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

C = $ ! 1, 2, 3

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