Subversion Repositories openrisc_me

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