RosettaCodeData/Task/Array-concatenation/HicEst/array-concatenation.hicest

7 lines
80 B
Plaintext

REAL :: a(7), b(3), c(10)
c = a
DO i = 1, LEN(b)
c(i + LEN(a)) = b(i)
ENDDO