mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-04-14 10:07:39 +08:00
add995c32e
git-svn-id: https://nuttx.svn.sourceforge.net/svnroot/nuttx/trunk@4200 7fd9a85b-ad96-42d3-883c-3090e2eb8679
22 lines
290 B
ObjectPascal
22 lines
290 B
ObjectPascal
{ 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.
|
|
|