src/examples/logical.ft


1
2
3
4
5
6
7
8
9
10
11
12
13
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