Pascal Tests

git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@504 42af7a65-404d-4744-a932-0658087f49c3

1 files changed, 24 insertions, 0 deletions

diff --git a/misc/pascal/tests/src/501-unit-sine.pas b/misc/pascal/tests/src/501-unit-sine.pas
new file mode 100644
index 000000000..944e70774
--- /dev/null
+++ b/misc/pascal/tests/src/501-unit-sine.pas
@@ -0,0 +1,24 @@
+{ Compute the sine using: sqrt(1 - cosine**2)
+  This file verifies a unit that uses another unit
+}
+
+unit MySineUnit;
+
+interface
+
+function mysine(x : real) : real;
+
+implementation
+
+uses
+   MyCosineUnit in '501-unit-cosine.pas';
+
+function mysine(x : real) : real;
+var
+   mycos : real
+begin
+   mycos := mycosine(x);
+   mysine := sqrt(1.0 - sqr(mycos))
+end; { mysine }
+end.
+