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
82
83
|
program expr_05
! Test parantheses in expressions
implicit none
integer :: x, a, b, c
logical :: l
a = 3
b = 4
c = 5
x = 2*3
x = (-2)*3
x = 2*(-3)
x = (-2)*(-3)
x = (-2)*(-3)
x = -2**3
x = -2**3
x = -2*3
x = 2**(-3)
x = a
x = (a)
x = a*b
x = (-a)*b
x = -a*b
x = a*(-b)
x = (-a)*(-b)
x = a*b*c
x = (-a)*b*c
x = a*(-b)*c
x = a*b*(-c)
x = (-a)*(-b)*(-c)
x = 3 + 4*5
x = (3 + 4)*5
x = a*(b + 5*(c - b))
x = (3 - 2*a*b)*5
x = ((-2)*a*b + 3)*5
x = ((-2)*a*b + 3*b*a)*5
x = ((-2)*a/b + (a + (-b))**2)*5
x = (2*a*b + 3)*5
x = a**2 + 2*a*b + b**2
x = (a + b)*(a - b)
x = (a + b)**2
x = (a + b)*(a**2 - a*b + b**2)
x = (a - b)*(a + b)*(a**2 + b**2)
x = 1/(a*b)
x = 1/a*b
x = 1/a*b
x = 1/(a*b + 1)
x = 1/a*b + 1
x = 1/a*b + 1
x = 2 - (-2)
x = a - ((-b) - c)
x = a - (-2)*b
x = c - (-2)/b
x = a - (2 + 3 + 4)
x = a + 2 + 3 + 4
x = 2*a + a*b - (a*b + 2*a)
x = 2*a + a*b - (a*b - 2*a)
x = a - (b - (c - 1))
x = a - b
x = a - (b - c)
x = a - b - c
x = -(a - ((-b) + (-b) - (-b)*b))
x = -(3 + 5)
x = -(a + 5)
l = x**3*4 + a <= 4 .or. x < 5 .and. x < 6 .eqv. .true. .or. .not. .false. .and. .true.
l = l .or. l .and. l
l = (l .or. l) .and. l
l = l .and. l .or. l
l = l .and. (l .or. l)
l = l .or. .not. l .and. l
l = l .or. l .and. .not. l
l = l .and. l .or. .not. l
l = l .and. .not. l .or. l
l = l .and. .not.(l .or. l)
end program expr_05
|
