Mercurial > hg > CbC > CbC_gcc
annotate 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 |
rev | line source |
---|---|
131 | 1 -- { dg-do compile } |
2 -- { dg-require-effective-target store_merge } | |
3 -- { dg-options "-O2 -fdump-tree-store-merging" } | |
4 | |
5 with Opt71_Pkg; use Opt71_Pkg; | |
6 | |
7 procedure Opt71a (X : not null access Rec; Size : Positive) is | |
8 begin | |
9 X.all := (Flag => True, Size => Size); | |
10 end; | |
11 | |
12 -- { dg-final { scan-tree-dump "Merging successful" "store-merging" } } |