2 ! { dg-options "-fdec-structure" }
4 ! Test UNIONs with initializations.
8 character(*), intent(in
) :: s
13 ! Initialization expressions
18 integer(4) :: x
= 1600
19 integer(4) :: y
= 1800
30 if ( r3
.x
.ne
. 1600 .or
. r3
.y
.ne
. 1800) then
31 r3
.x
= r3
.y
! If r3 isn't used the initializations are optimized out
32 call aborts ("union initialization")