gcc/testsuite/gfortran.dg/literal_character_constant_1.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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