1! { dg-do compile } 2! Tests fix for PR24223 - ICE on equivalence statement. 3! 4module FLAGS 5 character(len=5) :: Encodings 6 character :: at, dev 7 equivalence ( encodings(1:1),at ), ( encodings(2:2),dev) 8end module FLAGS 9