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/] [not_null.adb] - Rev 384
Compare with Previous | Blame | View Log
-- { dg-do run } procedure not_null is type Not_Null_Int_Ptr is not null access all Integer; generic F : Not_Null_Int_Ptr := null; package GPack is end GPack; begin declare pragma Warnings (Off, "*null not allowed in null-excluding objects"); pragma Warnings (Off, """Constraint_Error"" will be raised at run time"); package Inst_2 is new GPack (null); pragma Warnings (On, "*null not allowed in null-excluding objects"); pragma Warnings (On, """Constraint_Error"" will be raised at run time"); begin null; end; exception when Constraint_Error => null; end not_null;