gcc/testsuite/algol68/compile/warning-hidding-7.a68


1
2
3
4
5
6
7
8
9

{ dg-options "-Whidden-declarations=all" }
begin real b;
      begin int getchar = 10; { dg-warning "hides" }
            int b; { dg-warning "hides" }
            op UPB = (int i, union (int,string) v) int: { dg-warning "hides" }
               (v | (string s): UPB s | 0);
            UPB "lala"
      end
end