URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [literal_character_constant_1.inc] - Rev 801

Go to most recent revision | Compare with Previous | Blame | View Log

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

Go to most recent revision | Compare with Previous | Blame | View Log

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [literal_character_constant_1.inc] - Rev 801