Sign in
llvm
/
llvm
/
eff75f4c9f2c3b8c4cccb825eb2310cbc5659275
/
.
/
test
/
FrontendAda
/
unc_constructor.adb
blob: e32c04a2e0192589392e86bc33d12a56d83c6b3d [
file
] [
log
] [
blame
]
--
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
;