diff options
| author | AidenRushbrooke <72034940+AidenRushbrooke@users.noreply.github.com> | 2021-12-09 02:30:57 +0000 |
|---|---|---|
| committer | AidenRushbrooke <72034940+AidenRushbrooke@users.noreply.github.com> | 2021-12-09 02:30:57 +0000 |
| commit | 13c44054b21d26782e98a52e9a114250ab8307ff (patch) | |
| tree | 8426476b4daeee01b85cc3f414d04335dbf0a87d /src/examples/subroutine.ft | |
| parent | 560a48eebf4f74ae1a21d5cfbb3b55477d7c1356 (diff) | |
| download | esotericFORTRAN-13c44054b21d26782e98a52e9a114250ab8307ff.tar.gz esotericFORTRAN-13c44054b21d26782e98a52e9a114250ab8307ff.zip | |
Added example program of each main feature
Diffstat (limited to 'src/examples/subroutine.ft')
| -rw-r--r-- | src/examples/subroutine.ft | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/examples/subroutine.ft b/src/examples/subroutine.ft new file mode 100644 index 0000000..58171b8 --- /dev/null +++ b/src/examples/subroutine.ft @@ -0,0 +1,9 @@ +program subroutineExample +calc(3,4,5) +end program subroutineExample + +subroutine calc(int a,int b,int c) +int::total +total=a*b*c +print*,total +end
\ No newline at end of file |