URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [sizetype4.adb] - Rev 705
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } procedure Sizetype4 is type Float_Array is array (Integer range <>) of Float; NoFloats : Float_Array (1 .. 0); procedure Q (Results : Float_Array := NoFloats) is type Reply_Msg is record Request_Id : Integer; Status : Integer; Data : Float_Array (Results'Range); end record; begin if Reply_Msg'Size /= 64 then raise Program_Error; end if; end; begin Q; end;
Go to most recent revision | Compare with Previous | Blame | View Log