Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
compile
/
warning-hidding-4.a68
blob: 4478da144dddee06ffb0ea0e6cb42496811fbf7f [
file
]
{
dg
-
options
"-Whidden-declarations"
}
begin
int
bitspack
=
10
;
{
dg
-
warning
""
}
op UPB
=
(
int
i
,
union
(
int
,
string
)
v
)
int
:
{
dg
-
warning
"hides"
}
(
v
|
(
string
s
):
UPB s
|
0
);
UPB
"lala"
end