2 -- { dg-final { scan-assembler-not "elabs" } }
4 package body OCONST4 is
6 procedure check (arg : R) is
10 or else arg.d.b.f1 /= one
11 or else arg.d.b.f2 /= 2
12 or else arg.d.b.f3 /= 17
13 or else arg.d.b.f4 /= 42
14 or else arg.d.f2 /= one
16 or else arg.d.f4 /= 111