summaryrefslogtreecommitdiffstats
path: root/src/examples/array.ft
diff options
context:
space:
mode:
Diffstat (limited to 'src/examples/array.ft')
-rw-r--r--src/examples/array.ft13
1 files changed, 13 insertions, 0 deletions
diff --git a/src/examples/array.ft b/src/examples/array.ft
new file mode 100644
index 0000000..6f62940
--- /dev/null
+++ b/src/examples/array.ft
@@ -0,0 +1,13 @@
+program array
+int dimension(10)::a
+int::i
+
+do i=0,9
+a(i)=i*2
+end do
+
+do i=0,9
+print*,a(i)
+end do
+
+end program array \ No newline at end of file