Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.3.1
/
gcc
/
testsuite
/
gnat.dg
/
socket1.adb
blob: f1adf7a1f2c9408b336636656736bb9bbd0b012d [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
with
GNAT
.
Sockets
;
use
GNAT
.
Sockets
;
procedure socket1
is
X
:
Character
;
begin
X
:=
'x'
;
GNAT
.
Sockets
.
Initialize
;
declare
H
:
Host_Entry_Type
:=
Get_Host_By_Address
(
Inet_Addr
(
"127.0.0.1"
));
begin
null
;
end
;
end
socket1
;