summaryrefslogtreecommitdiffstats
path: root/src/examples/example.ft
diff options
context:
space:
mode:
Diffstat (limited to 'src/examples/example.ft')
-rw-r--r--src/examples/example.ft18
1 files changed, 0 insertions, 18 deletions
diff --git a/src/examples/example.ft b/src/examples/example.ft
deleted file mode 100644
index 571cace..0000000
--- a/src/examples/example.ft
+++ /dev/null
@@ -1,18 +0,0 @@
-program example
-real::a
-real::root
-a=30
-root=sqrt(25+5)
-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