character(len=*), parameter :: & state="michigan", name="tech" character(len=12) :: school school = state // name ! produces "michigantech"