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.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [init_scalar1.adb] - Diff between revs 304 and 338

Rev 304	Rev 338
`-- { dg-do run }`	`-- { dg-do run }`
`-- { dg-options "-gnatws -gnatVa" }`	`-- { dg-options "-gnatws -gnatVa" }`

`pragma Initialize_Scalars;`	`pragma Initialize_Scalars;`
`procedure init_scalar1 is`	`procedure init_scalar1 is`
`type Fixed_3T is delta 2.0 ** (- 4)`	`type Fixed_3T is delta 2.0 ** (- 4)`
`range - 2.0 19 .. (2.0 19 - 2.0 ** (- 4));`	`range - 2.0 19 .. (2.0 19 - 2.0 ** (- 4));`
`for Fixed_3T'Size use 3*8;`	`for Fixed_3T'Size use 3*8;`

`Write_Value : constant Fixed_3T := Fixed_3T(524287.875);`	`Write_Value : constant Fixed_3T := Fixed_3T(524287.875);`
`type singleton is array (1 .. 1) of Fixed_3T;`	`type singleton is array (1 .. 1) of Fixed_3T;`
`pragma Pack (singleton);`	`pragma Pack (singleton);`
`it : Singleton;`	`it : Singleton;`
`begin`	`begin`
`null;`	`null;`
`end;`	`end;`