diff options
| author | AidenRushbrooke <72034940+AidenRushbrooke@users.noreply.github.com> | 2021-12-10 16:21:12 +0000 |
|---|---|---|
| committer | AidenRushbrooke <72034940+AidenRushbrooke@users.noreply.github.com> | 2021-12-10 16:21:12 +0000 |
| commit | 07005cf0189fb9c828fa8a55fa7a39b036596877 (patch) | |
| tree | 721af8941e4ae9f26bc455846ec9885df948e212 /src | |
| parent | a1b0faf320fe1873996f3a6d009e43e6ee948880 (diff) | |
| download | esotericFORTRAN-07005cf0189fb9c828fa8a55fa7a39b036596877.tar.gz esotericFORTRAN-07005cf0189fb9c828fa8a55fa7a39b036596877.zip | |
Logical example and demo structure
Diffstat (limited to 'src')
| -rw-r--r-- | src/examples/logical.ft | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/examples/logical.ft b/src/examples/logical.ft new file mode 100644 index 0000000..d7ac3dd --- /dev/null +++ b/src/examples/logical.ft @@ -0,0 +1,14 @@ +program logical +int::a +int::b +int::c +a=6 +b=10 +c=15 +if (a==6 .and. b==10) then +print*,"'and' executed" +end if +if (a==10 .or. c==15) then +print*,"'or' executed" +end if +end program logical
\ No newline at end of file |