Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
platform
/
external
/
llvm
/
ee5b680e8c1d6fb6e940796db1cdfc2b37dca079
/
.
/
test
/
FrontendAda
/
unc_constructor.adb
blob: bc3002c6a95bd514914eef9e1ff9610573eb5952 [
file
] [
log
] [
blame
]
--
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
;