OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr16938.f90] - Blame information for rev 414

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do run }
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.
4
  program Array_List
5
    implicit none
6
 
7
    type :: Compound
8
      integer                       :: Count
9
      character (len = 4)           :: Name
10
    end type Compound
11
 
12
    type :: Table
13
      type (Compound)               :: Data (2)
14
      integer :: L_Size
15
    end type Table
16
 
17
    type (Table) :: ElementTable
18
    ElementTable%Data(1) = Compound(1,"one")
19
    ElementTable%Data(2) = Compound(2,"two")
20
    ElementTable%L_size  = 2
21
 
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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.