gcc/testsuite/algol68/compile/module-mode-exports-7.a68


1
2
3
4
5
6
7
8
9
10
11
12
13

{ dg-options "-dA" }

{ Test for mode table in module definition exports. }

module Foo =
def pub mode MyName = ref int;
    skip
fed

{ GA68_MODE_NAME = 12UB }

{ dg-final { scan-assembler-times "0xc\[\t ]+\[^0-9\]+ref" 1 } }
{ dg-final { scan-assembler-times "0x2\[\t ]+\[^0-9\]+int" 1 } }