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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ dg-options "-dA" }

{ Test for mode table in module definition exports. }

module Foo =
def pub mode MyCompl = compl;
    pub mode MyLongCompl = long compl;
    pub mode MyLongLongCompl = long long compl;
    skip
fed

{ GA68_MODE_CMPL = 8UB }

{ dg-final { scan-assembler-times "0x8\[\t ]+\[^0-9\]+compl" 3 } }
{ dg-final { scan-assembler-times "\[\t \]+0x2\[\t \]+\[^\n\]*sizety" 1 } }
{ dg-final { scan-assembler-times "\[\t \]+0x1\[\t \]+\[^\n\]*sizety" 1 } }
{ dg-final { scan-assembler-times "\[\t \]+0\[\t \]+\[^\n\]*sizety" 1 } }