conformity-clause-6.a68\execute\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/execute/conformity-clause-6.a68

blob: b3d3d6cf329e7989958081036ffda50b039d4079 (plain)

# { dg-options "-fstropping=upper" }  #
BEGIN UNION (CHAR,BOOL,REAL) cbra = 3.14, UNION (INT,REAL) ira = 10;
      IF (cbra | (CHAR): FALSE, (BOOL b): b
          |: ira | (INT i): i > 0, (REAL r): r > 0)
      THEN SKIP
      ELSE ASSERT (FALSE)
      FI
END