hello.a68\a68includes\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/a68includes/hello.a68

blob: aa72e282d2c53ea5306f00761a98c91ca0de0d52 (plain)

# { dg-options "-fstropping=upper" }  #
# PR UPPER PR #

PROC hello = (STRING name) STRING:
BEGIN
    STRING msg := "Hello " + name;
    msg
END;