URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr16938.f90] - Rev 384
Compare with Previous | Blame | View Log
! { 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