2 ! { dg-options "-fdec-structure" }
4 ! Test nested STRUCTURE definitions.
8 character(*), intent(in
) :: s
15 structure /s4
/ recrd
, recrd_a(3)
28 r3
.recrd_a(1) = r3
.recrd
32 if (r3
.p
.ne
. 1.3579) then
44 if (r3
.recrd
.i
.ne
. 0 .or
. r3
.recrd
.j
.ne
. 1) then
45 call aborts("r3.recrd")
48 if (r3
.recrd_a(2).i
.ne
. 1 .or
. r3
.recrd_a(2).j
.ne
. 0) then
49 call aborts("r3.recrd_a(2)")