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] - Blame information for rev 708

Go to most recent revision | Details | Compare with Previous | 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
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`C fixed-form literal character constant with continuation line padding test`
2			`C PR fortran/25486`
3			`program a`
4			`character(len=90) c`
5			`character(90) :: fil`
6			`c 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

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [literal_character_constant_1.inc] - Blame information for rev 708