Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
modules
/
program-19.a68
blob: 0dd10b5e6d60812e84bac5aab8d996137ec692d7 [
file
] [
log
] [
blame
]
{
dg
-
modules
"module-foo module-bar"
}
{
dg
-
options
{-
fmodules
-
map
=
module
-
foo
=
Foo
:
module
-
bar
=
Bar
}
}
begin
access
Foo
(
assert
(
foo
=
10
));
access
Bar
(
assert
(
bar
=
20
))
end