! { dg-do compile } | |
! Tests fix for PR24223 - ICE on equivalence statement. | |
! | |
module FLAGS | |
character(len=5) :: Encodings | |
character :: at, dev | |
equivalence ( encodings(1:1),at ), ( encodings(2:2),dev) | |
end module FLAGS | |
! { dg-final { cleanup-modules "FLAGS" } } |