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
|
program arithmetic_if_04
integer, parameter :: dp = kind(0.d0)
real(dp) :: x
integer :: c
! Singleline
x = -3
c = 0
if (x) 1, 2, 3
1 c = c + 1
2 c = c + 2
3 c = c + 4
print *, c
if (c /= 7) error stop
x = 0
c = 0
if (x) 4, 5, 6
4 c = c + 1
5 c = c + 2
6 c = c + 4
print *, c
if (c /= 6) error stop
x = 7
c = 0
if (x) 7, 8, 9
7 c = c + 1
8 c = c + 2
9 c = c + 4
print *, c
if (c /= 4) error stop
! Multiline
x = -3
c = 0
if (x) 11, 12, 13
11 c = c + 1
c = c + 100
12 c = c + 2
c = c + 200
13 c = c + 4
c = c + 400
print *, c
if (c /= 707) error stop
x = 0
c = 0
if (x) 14, 15, 16
14 c = c + 1
c = c + 100
15 c = c + 2
c = c + 200
16 c = c + 4
c = c + 400
print *, c
if (c /= 606) error stop
x = 7
c = 0
if (x) 17, 18, 19
17 c = c + 1
c = c + 100
18 c = c + 2
c = c + 200
19 c = c + 4
c = c + 400
print *, c
if (c /= 404) error stop
end program
|
