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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [widechar_9.f90] - Blame information for rev 774

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


! { dg-do compile }
!
! PR fortran/37076
!
! Before the result of concatenations was always a kind=1 string
!
program test3
  integer,parameter :: u = 4
  character(1,u),parameter :: nen=char(int(z'5e74'),u) !year
  character(25,u) :: string
  string = u_"2008"//nen
  print *, u_"2008"//nen ! Compiles OK
  print *, u_"2008"//nen//u_"8" ! Rejects this.
end program test3

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/37076`
4			`!`
5			`! Before the result of concatenations was always a kind=1 string`
6			`!`
7			`program test3`
8			`integer,parameter :: u = 4`
9			`character(1,u),parameter :: nen=char(int(z'5e74'),u) !year`
10			`character(25,u) :: string`
11			`string = u_"2008"//nen`
12			`print *, u_"2008"//nen ! Compiles OK`
13			`print *, u_"2008"//nen//u_"8" ! Rejects this.`
14			`end program test3`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [widechar_9.f90] - Blame information for rev 774