Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
toolchain
/
llvm-project
/
33c0c77073d2b8e7067b51a2f43593d09d21d82f
/
.
/
llvm
/
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
;