1-- { dg-do compile } 2-- { dg-options "-gnatws -fdump-tree-gimple" } 3 4procedure Alignment4 is 5 6 type Stream is array (1..3) of Character; 7 8 S1, S2 : Stream; 9 10begin 11 S1 := S2; 12end; 13 14-- { dg-final { scan-tree-dump-not ".\F" "gimple" } } 15-- { dg-final { cleanup-tree-dump "gimple" } } 16