conformity-clause-7.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-7.a68

blob: 18122a3dd70c851fd24276d890430ac7d8d86c79 (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 ASSERT (FALSE)
      FI
END