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.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [universal_fixed.ads] - Blame information for rev 686

Go to most recent revision | 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

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