blob: 0a49ead77d09edf14a2544810f647a43c1ce32ed [file] [log] [blame]
! { dg-do run }
! { dg-options "-fdec-structure" }
!
! Test nested STRUCTURE definitions.
!
subroutine aborts (s)
character(*), intent(in) :: s
print *, s
STOP 1
end subroutine
structure /s3/
real p
structure /s4/ recrd, recrd_a(3)
integer i, j
end structure
real q
end structure
record /s3/ r3
record /s4/ r4
r3.p = 1.3579
r4.i = 0
r4.j = 1
r3.recrd = r4
r3.recrd_a(1) = r3.recrd
r3.recrd_a(2).i = 1
r3.recrd_a(2).j = 0
if (r3.p .ne. 1.3579) then
call aborts("r3.p")
endif
if (r4.i .ne. 0) then
call aborts("r4.i")
endif
if (r4.j .ne. 1) then
call aborts("r4.j")
endif
if (r3.recrd.i .ne. 0 .or. r3.recrd.j .ne. 1) then
call aborts("r3.recrd")
endif
if (r3.recrd_a(2).i .ne. 1 .or. r3.recrd_a(2).j .ne. 0) then
call aborts("r3.recrd_a(2)")
endif
end