Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/opt71b.adb @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
-- { dg-do compile } -- { dg-require-effective-target store_merge } -- { dg-options "-O2 -fdump-tree-store-merging" } with Opt71_Pkg; use Opt71_Pkg; procedure Opt71b (X : not null access Rec; Y : not null access Rec) is begin X.all := (Flag => True, Size => Y.Size); end; -- { dg-final { scan-tree-dump "Merging successful" "store-merging" } }