Improve compatibility with older versions of Windows.

[llvm/msp430.git] / test / FrontendAda / unc_constructor.adb

-- 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;