aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/unc_constructor.adb
blob: bc3002c6a95bd514914eef9e1ff9610573eb5952 (plain)
1
2
3
4
5
6
7
8
9
-- RUN: %llvmgcc -c %s -I%p/Support
package body Unc_Constructor is
   procedure P (X : A) is
   begin
      if X = A0 then
         null;
      end if;
   end;
end;