module-mode-exports-3.a68\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/module-mode-exports-3.a68

blob: b0309032a4f17e0f5c0f56b54eb0275c225c09b7 (plain)

{ dg-options "-dA" }

{ Test for mode table in module definition exports. }

module Foo =
def pub mode MyString = string;
    skip
fed

{ GA68_MODE_STRING = 14UB }

{ dg-final { scan-assembler-times "\[\t \]+0xe\[\t \]+\[^\n\]*string" 1 } }