2 ! { dg-options "-fdec-structure" }
4 ! Test basic UNION implementation.
8 character(*), intent(in
) :: s
51 if ( r1
.a
.eq
. 0 ) call aborts ("basic union 1")
53 ! Endian-agnostic runtime check
55 if (.not
. ( (r2
.w1
.eq
. z
'1234' .and
. r2
.w2
.eq
. z
'5678') &
56 .or
. (r2
.w1
.eq
. z
'5678' .and
. r2
.w2
.eq
. z
'1234')) ) then
57 call aborts ("basic union 2")