＜Concatenation Example Program＞

Program concat_example
  Character(20),Parameter :: left(2) = (/ 'First     ','The Second' /)
  Character(20),Parameter :: right(2) = ' Example'
  Do i=1,2
    Print 1,Trim(left(i))//Trim(right(i))
1   Format(1X,'"',A,'"')
  End Do
End Program

■ Execution Results

  "First Example"
  "The Second Example"