1-- { dg-do compile }
2-- { dg-options "-fdump-tree-optimized" }
3
4procedure Array24 (N : Natural) is
5 S : String (1 .. N);
6 pragma Volatile (S);
7begin
8 S := (others => '0');
9end;
10
11-- { dg-final { scan-tree-dump-not "builtin_unwind_resume" "optimized" } }
12