blob: 8a9c286ef3eaa75a25a95655357c6a2154415f96 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { 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
|
