blob: af0521be1019d9a4fed71843dda7f7a399d907c3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ dg-options "-I$srcdir/algol68/compile/a68includes" }
{ dg-additional-files "$srcdir/algol68/compile/a68includes/hello-supper.a68 $srcdir/algol68/compile/a68includes/goodbye-supper.a68" }
begin string name := "Algol68 with supper!";
{ Both files are in `./a68includes'.
The first one will be included because we uwed `-I.
The second one will be included because of the relative path. }
pr include "hello-supper.a68" pr
pr include "a68includes/goodbye-supper.a68" pr
string bye := goodbye(name);
string hi := hello(name);
puts(hi + "\n");
puts(bye + "\n")
end
|
