warning-hidding-6.a68\compile\algol68\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/algol68/compile/warning-hidding-6.a68

blob: a865103bcdfb522f46ba6fb6938b3a40ac5512f4 (plain)

{ 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