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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR32472 -- character literals were not implemented in REPEAT.
!
! Contributed by Tobias Burnus 
!
  CHARACTER(len=1025) :: string2 = repeat('?',1025)
  print *, string2
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR32472 -- character literals were not implemented in REPEAT.`
4			`!`
5			`! Contributed by Tobias Burnus`
6			`!`
7			`CHARACTER(len=1025) :: string2 = repeat('?',1025)`
8			`print *, string2`
9			`end`

Browse

Tools

Subversion Repositories openrisc

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