1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
program logical3
! This program checks logical operators
implicit none
logical :: a, b
! assigning values
a = .true.
b = .false.
if (a .and. b) then
print *, "Line 1 - Condition is true"
error stop
else
print *, "Line 1 - Condition is false"
end if
if (a .or. b) then
print *, "Line 2 - Condition is true"
else
print *, "Line 2 - Condition is false"
error stop
end if
if (a .xor. b) then
print *, "Line xor - Condition is true"
else
print *, "Line xor - Condition is false"
error stop
end if
! changing values
a = .false.
b = .true.
if (.not.(a .and. b)) then
print *, "Line 3 - Condition is true"
else
print *, "Line 3 - Condition is false"
error stop
end if
if (b .neqv. a) then
print *, "Line 4 - Condition is true"
else
print *, "Line 4 - Condition is false"
error stop
end if
if (b .eqv. a) then
print *, "Line 5 - Condition is true"
error stop
else
print *, "Line 5 - Condition is false"
end if
! changing values
a = .true.
b = .true.
if (a .and. b) then
print *, "Line 6 - Condition is true"
else
print *, "Line 6 - Condition is false"
error stop
end if
if (a .or. b) then
print *, "Line 7 - Condition is true"
else
print *, "Line 7 - Condition is false"
error stop
end if
if (a .xor. b) then
print *, "Line 8 xor - Condition is true"
error stop
else
print *, "Line 8 xor - Condition is false"
end if
end program logical3
|
