1C     fixed-form literal character constant with continuation line padding test
2C     PR fortran/25486
3      program a
4      character(len=90) c
5      character(90) :: fil
6c 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     &  call abort
13#else
14      if(fil.ne.
15     &"1234567                                                      8	9"
16     &)
17     &  call abort
18#endif
19      end
20
21