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

Subversion Repositories openrisc

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

Rev 154	Rev 816
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests fix for PR24223 - ICE on equivalence statement.`	`! Tests fix for PR24223 - ICE on equivalence statement.`
`!`	`!`
`module FLAGS`	`module FLAGS`
`character(len=5) :: Encodings`	`character(len=5) :: Encodings`
`character :: at, dev`	`character :: at, dev`
`equivalence ( encodings(1:1),at ), ( encodings(2:2),dev)`	`equivalence ( encodings(1:1),at ), ( encodings(2:2),dev)`
`end module FLAGS`	`end module FLAGS`

`! { dg-final { cleanup-modules "FLAGS" } }`	`! { dg-final { cleanup-modules "FLAGS" } }`