RosettaCodeData/Task/String-prepend/Fortran/string-prepend-2.f

      CHARACTER*66 TEXT
      TEXT = "World!"
      TEXT = "Hello "//TEXT
      WRITE (6,*) TEXT
      END