URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [test_bip_no_alloc.adb] - Rev 384
Compare with Previous | Blame | View Log
-- { dg-do compile } pragma Restrictions (No_Allocators); procedure Test_BIP_No_Alloc is type LR (B : Boolean) is limited record X : Integer; end record; function FLR return LR is begin -- A return statement in a function with a limited and unconstrained -- result subtype can result in expansion of an allocator for the -- secondary stack, but that should not result in a violation of the -- restriction No_Allocators. return (B => False, X => 123); end FLR; Obj : LR := FLR; begin null; end Test_BIP_No_Alloc;