Require target lra in gcc.dg/pr108095.c
[official-gcc.git] / gcc / testsuite / gnat.dg / equal4.adb
blob9c6861745270b83af54170038b83e4aadda7469c
1 -- { dg-do compile }
3 package body Equal4 is
4 procedure Compare (Obj : Equal4_Full_Selector_Filter.Object_T) is
5 use type Equal4_Full_Selector_Filter.Object_T;
7 begin
8 if Obj = Equal4_Full_Selector_Filter.True then
9 null;
10 end if;
11 end Compare;
12 end Equal4;