URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bounds_check_array_ctor_6.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-fbounds-check" }`	`! { dg-options "-fbounds-check" }`
`! { dg-shouldfail "foo" }`	`! { dg-shouldfail "foo" }`
`!`	`!`
`! PR 36112`	`! PR 36112`
`! Check correct bounds-checking behaviour for character-array-constructors.`	`! Check correct bounds-checking behaviour for character-array-constructors.`

`call test ("short", "also5")`	`call test ("short", "also5")`
`contains`	`contains`
`subroutine test(r, s)`	`subroutine test(r, s)`
`character(len=*) :: r, s`	`character(len=*) :: r, s`
`character(len=128) :: arr(3)`	`character(len=128) :: arr(3)`
`arr = (/ r, s, "this is too long" /)`	`arr = (/ r, s, "this is too long" /)`
`end subroutine test`	`end subroutine test`
`end`	`end`
`! { dg-output "Different CHARACTER lengths \\(5/16\\) in array constructor" }`	`! { dg-output "Different CHARACTER lengths \\(5/16\\) in array constructor" }`