Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/test_bip_no_alloc.adb @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { 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;