llvm/test/FrontendAda/unc_constructor.adb
2007-05-02 07:43:14 +00:00

10 lines
166 B
Ada

-- RUN: %llvmgcc -c %s -o /dev/null
package body Unc_Constructor is
procedure P (X : A) is
begin
if X = A0 then
null;
end if;
end;
end;