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.ft27
1 files changed, 16 insertions, 11 deletions
diff --git a/src/examples/example.ft b/src/examples/example.ft
index 4a4981a..ab5143d 100644
--- a/src/examples/example.ft
+++ b/src/examples/example.ft
@@ -1,15 +1,20 @@
program example
-int ::test
-int::testtwo
-test=5
-testtwo=7
-int::testthree
-testthree=add(test,testtwo)
-print*,testthree
+int::a
+int::b
+int::c
+a=2+3
+b=3
+c=power(a,b)
+print*,c
end program example
-function int add(int a, int b)
-int::value
-value=a+b
-return value
+
+function int power(int value,int power)
+int::i
+int::final
+final=1
+do i=0,power-1
+final=final*value
+end do
+return final
end \ No newline at end of file