implicit-widening-1.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/implicit-widening-1.a68

blob: 2fa010c12a76222d389a9dba040a6eade06e92c3 (plain)

# { dg-options "-Wextensions -fstropping=upper" }  #

# This program shall compile without warning, because
  widening from INT to REAL is legal in the strict language,
  since they have the same size.  #

BEGIN BOOL cond;
      REAL x, y;
      y + (cond | x | 10)
END