Sign in
llvm
/
llvm
/
2aba8f7f84766599496a6a542d72cc21d1d27a23
/
.
/
test
/
FrontendAda
/
unc_constructor.adb
blob: ee10de6c811d768b5ec249387fb967f96b6947a4 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
S
%
s
-
I
%
p
/
Support
package
body
Unc_Constructor
is
procedure P
(
X
:
A
)
is
begin
if
X
=
A0
then
null
;
end
if
;
end
;
end
;