aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/compile/warning-hidding-3.a68
blob: 25f4809ebcf0ade7d62b97bd3420cf52d5938548 (plain)
1
2
3
4
5
{ dg-options "-Whidden-declarations" }
begin op UPB = (union (int,union(string,real)) v) int: { dg-warning "hides" }
         (v | (string s): UPB s | 0);
      UPB "lala"
end