1 2 3 4 5 6 7 8 9
-- 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;