Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/opt71a.adb @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +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 Opt71a (X : not null access Rec; Size : Positive) is begin X.all := (Flag => True, Size => Size); end; -- { dg-final { scan-tree-dump "Merging successful" "store-merging" } }