2 -- { dg-options "-gnatws -fdump-tree-gimple" }
4 procedure Alignment5
is
8 A1
: INTEGER range -3 .. 3 ; -- symmetric
10 A3
: INTEGER range 0 .. 15 ; -- positive
11 A4
: INTEGER range 10 .. 100 ; -- arbitrary
17 A1
at 0 range 0 .. 2 ;
18 A2
at 0 range 3 .. 3 ;
19 A3
at 0 range 4 .. 7 ;
20 A4
at 0 range 8 .. 15 ;
21 A5
at 0 range 16 .. 16 ;
24 A_REC
, B_REC
: MY_REC
;
30 -- { dg-final { scan-tree-dump-not "\.F" "gimple" } }