aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/compile/modules/program-error-outside-access-1.a68
blob: 39f0f1896f81ce7d8595ec44ff08805816cd8f39 (plain)
1
2
3
4
5
6
{ dg-modules "module1" }

begin int x = access Module1 ( beast_number ),
          y = beast_number; { dg-error "declared" }
      skip
end