Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
gnat.dg
/
concat6.adb
blob: 015be56bcb2b906f34e6d4af1246aa458f1ecd18 [
file
]
--
{
dg
-
do
compile
}
with
Ada
.
Text_IO
;
use
Ada
.
Text_IO
;
procedure
Concat6
is
C
:
constant character
:=
16
#00#; -- { dg-error "expected type|found type" }
begin
Put_Line
(
"Test "
&
C
);
end
;