diff options
| author | jwansek <eddie.atten.ea29@gmail.com> | 2021-11-29 16:24:07 +0000 |
|---|---|---|
| committer | jwansek <eddie.atten.ea29@gmail.com> | 2021-11-29 16:24:07 +0000 |
| commit | 2e3be43da8761eb77b00af20f559fef7a8c6b1b8 (patch) | |
| tree | 9d9aa5c1ce8d45bdea67d1b90bdd2b0781778b42 | |
| parent | 1b5ab5a41adc29d4d1dc5d76cefc67a0ee6dcb0f (diff) | |
| download | esotericFORTRAN-2e3be43da8761eb77b00af20f559fef7a8c6b1b8.tar.gz esotericFORTRAN-2e3be43da8761eb77b00af20f559fef7a8c6b1b8.zip | |
added example programs back
| -rw-r--r-- | src/examples/iteration.ft | 8 | ||||
| -rw-r--r-- | src/examples/selection.ft | 6 |
2 files changed, 14 insertions, 0 deletions
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 |