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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [data_char_3.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-O2" }`	`! { dg-options "-O2" }`
`! Tests the fix PR29392, in which the iterator valued substring`	`! Tests the fix PR29392, in which the iterator valued substring`
`! reference would cause a segfault.`	`! reference would cause a segfault.`
`!`	`!`
`! Contributed by Francois-Xavier Coudert`	`! Contributed by Francois-Xavier Coudert`
`!`	`!`
`character(LEN=2) :: a(2)`	`character(LEN=2) :: a(2)`
`data ((a(I)(k:k),I=1,2),k=1,2) /2'a',2'z'/`	`data ((a(I)(k:k),I=1,2),k=1,2) /2'a',2'z'/`
`IF (ANY(a.NE."az")) CALL ABORT()`	`IF (ANY(a.NE."az")) CALL ABORT()`
`END`	`END`