gcc/testsuite/gfortran.dg/literal_character_constant_1.inc

   1 C     fixed-form literal character constant with continuation line padding test
   2 C     PR fortran/25486
   3       program a
   4       character(len=90) c
   5       character(90) :: fil
   6 c A tab is between 8 and 9.
   7       c = '1234567
   8      &8 9'
   9       write(fil,'(a)') c
  10 #ifdef LL_NONE
  11       if(fil.ne. "12345678      9")
  12      &  STOP 1
  13 #else
  14       if(fil.ne.
  15      &"1234567                                                      8   9"
  16      &)
  17      &  STOP 2
  18 #endif
  19       end
  20