{ 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