gcc/testsuite/gnat.dg/opt87.adb

   1 -- { dg-do compile }
   2 -- { dg-require-effective-target store_merge }
   3 -- { dg-options "-O2 -gnatn -fdump-tree-store-merging" }
   4
   5 with Opt87_Pkg; use Opt87_Pkg;
   6
   7 procedure Opt87 is
   8 begin
   9   Print ("problem detected", "level 1");
  10 end;
  11
  12 -- { dg-final { scan-tree-dump "1 stores to replace old one of 6 stores" "store-merging" } }