URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [hyper_flat.adb] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } -- { dg-options "-gnatp" } procedure Hyper_Flat is type Unsigned is mod 2 ** 32; x : Integer := 0; pragma Volatile (X); S : constant String := (1 .. X - 3 => 'A'); -- Hyper-flat null string begin if Unsigned'(S'Length) /= 0 then raise Program_Error; end if; end;
Go to most recent revision | Compare with Previous | Blame | View Log