URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [universal_fixed.ads] - Blame information for rev 338

Details | Compare with Previous | View Log


-- { dg-do compile }
 
package Universal_Fixed is
    Nm2Metres : constant := 1852.0;
    type Metres is delta 1.0 range 0.0 .. 1_000_000.0;
    type Nautical_Miles is
      delta 0.001 range 0.0 .. (Metres'Last + (Nm2Metres / 2)) / Nm2Metres;
end Universal_Fixed;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2
3			`package Universal_Fixed is`
4			`Nm2Metres : constant := 1852.0;`
5			`type Metres is delta 1.0 range 0.0 .. 1_000_000.0;`
6			`type Nautical_Miles is`
7			`delta 0.001 range 0.0 .. (Metres'Last + (Nm2Metres / 2)) / Nm2Metres;`
8			`end Universal_Fixed;`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [universal_fixed.ads] - Blame information for rev 338