2 ! We used to get an internal error in the backend when trying to compile this
3 ! Added some code which verifies that we're actually doing the right thing.
9 character (len = 4) :: Name
13 type (Compound) :: Data (2)
17 type (Table) :: ElementTable
18 ElementTable%Data(1) = Compound(1,"one")
19 ElementTable%Data(2) = Compound(2,"two")
20 ElementTable%L_size = 2
22 if (elementtable%data(1)%count /= 1) call abort
23 if (elementtable%data(2)%count /= 2) call abort
24 if (elementtable%data(1)%name /= "one ") call abort
25 if (elementtable%data(2)%name /= "two ") call abort
26 if (elementtable%l_size /= 2) call abort
27 end program Array_List