literal_character_constant_1.inc   [plain text]


C     fixed-form literal character constant with continuation line padding test
C     PR fortran/25486
      program a
      character(len=90) c
      character(90) :: fil
c A tab is between 8 and 9.
      c = '1234567
     &8	9'
      write(fil,'(a)') c
#ifdef LL_NONE
      if(fil.ne. "12345678	9")
     &  call abort
#else
      if(fil.ne.
     &"1234567                                                      8	9"
     &)
     &  call abort
#endif
      end