gcc/testsuite/algol68/compile/module-pub-mangling-3.a68


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

{ dg-options "-O0" }

module Foo = def pub int foo = 10; { dg-final { scan-assembler "FOO_foo" } }
                 int bar = 20;     { dg-final { scan-assembler "FOO_bar" } }
                 skip
             fed,
       Bar = def pub int foo = 30; { dg-final { scan-assembler "BAR_foo" } }
                 int bar = 40;     { dg-final { scan-assembler "BAR_bar" } }
                 skip
             fed

{ dg-final { scan-assembler "FOO__prelude" } }
{ dg-final { scan-assembler "FOO__postlude" } }
{ dg-final { scan-assembler "BAR__prelude" } }
{ dg-final { scan-assembler "BAR__postlude" } }