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

blob: d8fe7c4d40d943fc0144b6dafe7c5c395a4a3114 (plain)

# { dg-options "-fstropping=upper" }  #
# Serial clause with jump at the end.  #

BEGIN INT i := BEGIN BOOL cont := TRUE;
               back: cont := FALSE;
                     IF cont THEN GOTO back FI
               END;
      ASSERT (i = 0)
END