28 lines
907 B
Fortran
28 lines
907 B
Fortran
! { 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) call abort
|
|
if (elementtable%data(2)%count /= 2) call abort
|
|
if (elementtable%data(1)%name /= "one ") call abort
|
|
if (elementtable%data(2)%name /= "two ") call abort
|
|
if (elementtable%l_size /= 2) call abort
|
|
end program Array_List
|