test/FrontendAda/unc_constructor.adb

   1 -- RUN: %llvmgcc -c %s -I%p/Support
   2 package body Unc_Constructor is
   3    procedure P (X : A) is
   4    begin
   5       if X = A0 then
   6          null;
   7       end if;
   8    end;
   9 end;