home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / strings.f < prev    next >
Text File  |  1994-11-06  |  963b  |  22 lines
  1. C  To see if handling of strings that are split across lines is done right
  2. C23456789012345678901234567890123456789012345678901234567890123456789012
  3.       character*255 S,T,U,V
  4.       S = '12345678901234567890123456789012345678901234567890123456789012
  5.      $ 12345678901234567890123456789012345678901234567890123456789012'
  6.       write(*,*) S
  7.       T = '12345678901234567890123456789012345678901234567890123456789012
  8.      $
  9.      $x12345678901234567890123456789012345678901234567890123456789012'
  10.       write(*,*) T
  11.       U = '123456789012345678901234567890123456789012345678901234567890'
  12.      $'12345678901234567890123456789012345678901234567890123456789012'
  13.       write(*,*) U
  14.       U = '123456789012345678901234567890123456789012345678901234567890'
  15.      $
  16.      $'12345678901234567890123456789012345678901234567890123456789012'
  17.       write(*,*) U
  18.       V = '123456789012345678901234567890123456789012345678901234567890'
  19.      $// 'hello'
  20.       write(*,*) V
  21.       end
  22.