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