8 lines
105 B
Text
8 lines
105 B
Text
CHARACTER :: A = "abc"
|
|
REAL :: C(3)
|
|
|
|
C = $ ! 1, 2, 3
|
|
|
|
DO i = 1, 3
|
|
WRITE() A(i), "ABC"(i), C(i)
|
|
ENDDO
|