From 2e3be43da8761eb77b00af20f559fef7a8c6b1b8 Mon Sep 17 00:00:00 2001 From: jwansek Date: Mon, 29 Nov 2021 16:24:07 +0000 Subject: added example programs back --- src/examples/iteration.ft | 8 ++++++++ src/examples/selection.ft | 6 ++++++ 2 files changed, 14 insertions(+) create mode 100644 src/examples/iteration.ft create mode 100644 src/examples/selection.ft (limited to 'src') diff --git a/src/examples/iteration.ft b/src/examples/iteration.ft new file mode 100644 index 0000000..22a2bfb --- /dev/null +++ b/src/examples/iteration.ft @@ -0,0 +1,8 @@ +int dimension(5)::test +int::i +do i=0,4 +test(i)=i +end do +do i=0,4 +print*,test(i) +end do \ No newline at end of file diff --git a/src/examples/selection.ft b/src/examples/selection.ft new file mode 100644 index 0000000..21100b2 --- /dev/null +++ b/src/examples/selection.ft @@ -0,0 +1,6 @@ +character (len=10)::hello +hello="hello" +if 4==5 then +hello="goodbye " +endif +print *,hello,6," world" endprint \ No newline at end of file -- cgit v1.2.3