From 13c44054b21d26782e98a52e9a114250ab8307ff Mon Sep 17 00:00:00 2001
From: AidenRushbrooke <72034940+AidenRushbrooke@users.noreply.github.com>
Date: Thu, 9 Dec 2021 02:30:57 +0000
Subject: Added example program of each main feature

---
 src/examples/function.ft | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/examples/function.ft

(limited to 'src/examples/function.ft')

diff --git a/src/examples/function.ft b/src/examples/function.ft
new file mode 100644
index 0000000..2c6ed7d
--- /dev/null
+++ b/src/examples/function.ft
@@ -0,0 +1,18 @@
+program example
+real::a
+real::root
+a=30
+root=sqrt(a)
+print*,"The square root of ",a," is ",root
+end program example
+
+!Function to calculate the square root of a value
+function real sqrt(real value)
+real::result
+result=1
+int::count
+do count=0,10
+result =(result+value/result)/2
+end do
+return result
+end
\ No newline at end of file
-- 
cgit v1.2.3