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