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