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
|
program cond_02
implicit none
integer :: a = 1, b = 2
integer, parameter :: ap = 1, bp = 2
real :: c = 1.0, d = 2.0
real, parameter :: cp = 1.0, dp = 2.0
if( ap == bp ) then
print *, "ap == bp"
else
print *, "ap /= bp"
end if
if( cp == dp ) then
print *, "cp == dp"
else
print *, "cp /= dp"
end if
if( a == b ) then
print *, "a == b"
if( ap == bp ) then
print *, "ap == bp"
else
print *, "ap /= bp"
end if
else if( ap == cp ) then
print *, "ap == cp"
if( cp == dp ) then
print *, "cp == dp"
else
print *, "cp /= dp"
end if
else if( c == d ) then
print *, "c == d"
end if
end
|
