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/] [unchecked_convert3.adb] - Blame information for rev 779

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


-- { dg-do run }
-- { dg-options "-gnatVa" }
 
with Unchecked_Conversion;
 
procedure Unchecked_Convert3 is
 
  type Word is range -(2**15) .. (2**15) - 1;
  type UWord is mod (2**16);
 
  function To_Word is new unchecked_conversion (UWord, Word);
 
  function F return UWord is
  begin
    return 65036;
  end;
 
  W : Word := To_Word(F);
 
begin
  null;
end;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do run }`
2			`-- { dg-options "-gnatVa" }`
3
4			`with Unchecked_Conversion;`
5
6			`procedure Unchecked_Convert3 is`
7
8			`type Word is range -(215) .. (215) - 1;`
9			`type UWord is mod (2**16);`
10
11			`function To_Word is new unchecked_conversion (UWord, Word);`
12
13			`function F return UWord is`
14			`begin`
15			`return 65036;`
16			`end;`
17
18			`W : Word := To_Word(F);`
19
20			`begin`
21			`null;`
22			`end;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [unchecked_convert3.adb] - Blame information for rev 779