URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [aggr3.ads] - Blame information for rev 858

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


-- { dg-do compile }
 
with Aggr3_Pkg; use Aggr3_Pkg;
 
package Aggr3 is
 
   type Enum is (One);
 
   type R (D : Enum := One) is
   record
      case D is
        when One => The_T : T;
      end case;
   end record;
 
   My_R : R := (D => One, The_T => My_T);
 
end Aggr3;

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do compile }`
2
3			`with Aggr3_Pkg; use Aggr3_Pkg;`
4
5			`package Aggr3 is`
6
7			`type Enum is (One);`
8
9			`type R (D : Enum := One) is`
10			`record`
11			`case D is`
12			`when One => The_T : T;`
13			`end case;`
14			`end record;`
15
16			`My_R : R := (D => One, The_T => My_T);`
17
18			`end Aggr3;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [aggr3.ads] - Blame information for rev 858