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

blob: 55f1fc3eb880c8586562bb90a3780c42c96a19a1 (plain)

begin union (int, bool, string) foo = 666;
      case foo
      in (union(int,string) bar):
            case bar
            in (int i): assert (i = 666),
               (string s): assert (false)
            esac,
         (bool baz): assert (false)
      esac
end