2 -- { dg-options "-O2" }
6 function ID (I : Integer) return Integer is
11 SUBTYPE STB IS INTEGER RANGE ID(-8) .. -5;
13 TYPE TB IS ARRAY (STB RANGE <>) OF INTEGER;
21 IF B1'FIRST /= -8 THEN
23 ELSIF B1'LAST /= ID(-5) THEN
25 ELSIF B1 /= (7, 6, 5, 4) THEN
30 PROCEDURE PROC2 IS NEW PROC1 ((7, 6, ID(5), 4));