blob: f1300cb2e1a39de1a9fdcdec303f4ddc8dcceab4 [file] [log] [blame]
! { dg-do run }
! We used to get an internal error in the backend when trying to compile this
! Added some code which verifies that we're actually doing the right thing.
program Array_List
implicit none
type :: Compound
integer :: Count
character (len = 4) :: Name
end type Compound
type :: Table
type (Compound) :: Data (2)
integer :: L_Size
end type Table
type (Table) :: ElementTable
ElementTable%Data(1) = Compound(1,"one")
ElementTable%Data(2) = Compound(2,"two")
ElementTable%L_size = 2
if (elementtable%data(1)%count /= 1) STOP 1
if (elementtable%data(2)%count /= 2) STOP 2
if (elementtable%data(1)%name /= "one ") STOP 3
if (elementtable%data(2)%name /= "two ") STOP 4
if (elementtable%l_size /= 2) STOP 5
end program Array_List