Subversion Repositories openrisc

! { 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