From 07005cf0189fb9c828fa8a55fa7a39b036596877 Mon Sep 17 00:00:00 2001 From: AidenRushbrooke <72034940+AidenRushbrooke@users.noreply.github.com> Date: Fri, 10 Dec 2021 16:21:12 +0000 Subject: Logical example and demo structure --- src/examples/logical.ft | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 src/examples/logical.ft (limited to 'src') 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 -- cgit v1.2.3