! This file: http://ftp.aset.psu.edu/pub/ger/fortran/hdk/LongString.f90
!
 Program LongString

   Character (len=200) :: string1, String2
   string1 = "A very long string that won't fit on a single &
              &line can be made through proper continuation."

   string2 = "A very long string that won't fit on a single " // &
             "line can be made through proper continuation."
 if (string1 == string2) then
   print *, "string1 and 2 are identical!"
   print *, "string1 & 2=",string1
 else
   print *, "string1 and 2 don't match!"
 endif

 End Program LongString