misc/pascal/tests/src/501-unit-data.pas


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

{ This file tests only that data can be shared correctly between units }

unit MyDataUnit;

interface

var
   mycosx : real;
   mysinx : real;
   myone  : real;

procedure checkvars;

implementation

procedure checkvars;
begin
   myone := sqr(mycosx) + sqr(mysinx)
end; { checkvars }
end.