11 lines
266 B
Fortran
11 lines
266 B
Fortran
|
! { 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" } }
|