Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/minloc_1.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children 1830386684a0
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
15 pinf = 1.0/pinf 15 pinf = 1.0/pinf
16 16
17 allocate (c(3)) 17 allocate (c(3))
18 a(:) = nan 18 a(:) = nan
19 ia = minloc (a) 19 ia = minloc (a)
20 if (ia(1).ne.1) call abort 20 if (ia(1).ne.1) STOP 1
21 a(:) = pinf 21 a(:) = pinf
22 ia = minloc (a) 22 ia = minloc (a)
23 if (ia(1).ne.1) call abort 23 if (ia(1).ne.1) STOP 2
24 a(1:2) = nan 24 a(1:2) = nan
25 ia = minloc (a) 25 ia = minloc (a)
26 if (ia(1).ne.3) call abort 26 if (ia(1).ne.3) STOP 3
27 a(2) = 1.0 27 a(2) = 1.0
28 ia = minloc (a) 28 ia = minloc (a)
29 if (ia(1).ne.2) call abort 29 if (ia(1).ne.2) STOP 4
30 a(2) = minf 30 a(2) = minf
31 ia = minloc (a) 31 ia = minloc (a)
32 if (ia(1).ne.2) call abort 32 if (ia(1).ne.2) STOP 5
33 c(:) = nan 33 c(:) = nan
34 ia = minloc (c) 34 ia = minloc (c)
35 if (ia(1).ne.1) call abort 35 if (ia(1).ne.1) STOP 6
36 c(:) = pinf 36 c(:) = pinf
37 ia = minloc (c) 37 ia = minloc (c)
38 if (ia(1).ne.1) call abort 38 if (ia(1).ne.1) STOP 7
39 c(1:2) = nan 39 c(1:2) = nan
40 ia = minloc (c) 40 ia = minloc (c)
41 if (ia(1).ne.3) call abort 41 if (ia(1).ne.3) STOP 8
42 c(2) = 1.0 42 c(2) = 1.0
43 ia = minloc (c) 43 ia = minloc (c)
44 if (ia(1).ne.2) call abort 44 if (ia(1).ne.2) STOP 9
45 c(2) = minf 45 c(2) = minf
46 ia = minloc (c) 46 ia = minloc (c)
47 if (ia(1).ne.2) call abort 47 if (ia(1).ne.2) STOP 10
48 l = .false. 48 l = .false.
49 l2(:) = .false. 49 l2(:) = .false.
50 a(:) = nan 50 a(:) = nan
51 ia = minloc (a, mask = l) 51 ia = minloc (a, mask = l)
52 if (ia(1).ne.0) call abort 52 if (ia(1).ne.0) STOP 11
53 ia = minloc (a, mask = l2) 53 ia = minloc (a, mask = l2)
54 if (ia(1).ne.0) call abort 54 if (ia(1).ne.0) STOP 12
55 a(:) = pinf 55 a(:) = pinf
56 ia = minloc (a, mask = l) 56 ia = minloc (a, mask = l)
57 if (ia(1).ne.0) call abort 57 if (ia(1).ne.0) STOP 13
58 ia = minloc (a, mask = l2) 58 ia = minloc (a, mask = l2)
59 if (ia(1).ne.0) call abort 59 if (ia(1).ne.0) STOP 14
60 a(1:2) = nan 60 a(1:2) = nan
61 ia = minloc (a, mask = l) 61 ia = minloc (a, mask = l)
62 if (ia(1).ne.0) call abort 62 if (ia(1).ne.0) STOP 15
63 ia = minloc (a, mask = l2) 63 ia = minloc (a, mask = l2)
64 if (ia(1).ne.0) call abort 64 if (ia(1).ne.0) STOP 16
65 a(2) = 1.0 65 a(2) = 1.0
66 ia = minloc (a, mask = l) 66 ia = minloc (a, mask = l)
67 if (ia(1).ne.0) call abort 67 if (ia(1).ne.0) STOP 17
68 ia = minloc (a, mask = l2) 68 ia = minloc (a, mask = l2)
69 if (ia(1).ne.0) call abort 69 if (ia(1).ne.0) STOP 18
70 a(2) = minf 70 a(2) = minf
71 ia = minloc (a, mask = l) 71 ia = minloc (a, mask = l)
72 if (ia(1).ne.0) call abort 72 if (ia(1).ne.0) STOP 19
73 ia = minloc (a, mask = l2) 73 ia = minloc (a, mask = l2)
74 if (ia(1).ne.0) call abort 74 if (ia(1).ne.0) STOP 20
75 c(:) = nan 75 c(:) = nan
76 ia = minloc (c, mask = l) 76 ia = minloc (c, mask = l)
77 if (ia(1).ne.0) call abort 77 if (ia(1).ne.0) STOP 21
78 ia = minloc (c, mask = l2) 78 ia = minloc (c, mask = l2)
79 if (ia(1).ne.0) call abort 79 if (ia(1).ne.0) STOP 22
80 c(:) = pinf 80 c(:) = pinf
81 ia = minloc (c, mask = l) 81 ia = minloc (c, mask = l)
82 if (ia(1).ne.0) call abort 82 if (ia(1).ne.0) STOP 23
83 ia = minloc (c, mask = l2) 83 ia = minloc (c, mask = l2)
84 if (ia(1).ne.0) call abort 84 if (ia(1).ne.0) STOP 24
85 c(1:2) = nan 85 c(1:2) = nan
86 ia = minloc (c, mask = l) 86 ia = minloc (c, mask = l)
87 if (ia(1).ne.0) call abort 87 if (ia(1).ne.0) STOP 25
88 ia = minloc (c, mask = l2) 88 ia = minloc (c, mask = l2)
89 if (ia(1).ne.0) call abort 89 if (ia(1).ne.0) STOP 26
90 c(2) = 1.0 90 c(2) = 1.0
91 ia = minloc (c, mask = l) 91 ia = minloc (c, mask = l)
92 if (ia(1).ne.0) call abort 92 if (ia(1).ne.0) STOP 27
93 ia = minloc (c, mask = l2) 93 ia = minloc (c, mask = l2)
94 if (ia(1).ne.0) call abort 94 if (ia(1).ne.0) STOP 28
95 c(2) = minf 95 c(2) = minf
96 ia = minloc (c, mask = l) 96 ia = minloc (c, mask = l)
97 if (ia(1).ne.0) call abort 97 if (ia(1).ne.0) STOP 29
98 ia = minloc (c, mask = l2) 98 ia = minloc (c, mask = l2)
99 if (ia(1).ne.0) call abort 99 if (ia(1).ne.0) STOP 30
100 l = .true. 100 l = .true.
101 l2(:) = .true. 101 l2(:) = .true.
102 a(:) = nan 102 a(:) = nan
103 ia = minloc (a, mask = l) 103 ia = minloc (a, mask = l)
104 if (ia(1).ne.1) call abort 104 if (ia(1).ne.1) STOP 31
105 ia = minloc (a, mask = l2) 105 ia = minloc (a, mask = l2)
106 if (ia(1).ne.1) call abort 106 if (ia(1).ne.1) STOP 32
107 a(:) = pinf 107 a(:) = pinf
108 ia = minloc (a, mask = l) 108 ia = minloc (a, mask = l)
109 if (ia(1).ne.1) call abort 109 if (ia(1).ne.1) STOP 33
110 ia = minloc (a, mask = l2) 110 ia = minloc (a, mask = l2)
111 if (ia(1).ne.1) call abort 111 if (ia(1).ne.1) STOP 34
112 a(1:2) = nan 112 a(1:2) = nan
113 ia = minloc (a, mask = l) 113 ia = minloc (a, mask = l)
114 if (ia(1).ne.3) call abort 114 if (ia(1).ne.3) STOP 35
115 ia = minloc (a, mask = l2) 115 ia = minloc (a, mask = l2)
116 if (ia(1).ne.3) call abort 116 if (ia(1).ne.3) STOP 36
117 a(2) = 1.0 117 a(2) = 1.0
118 ia = minloc (a, mask = l) 118 ia = minloc (a, mask = l)
119 if (ia(1).ne.2) call abort 119 if (ia(1).ne.2) STOP 37
120 ia = minloc (a, mask = l2) 120 ia = minloc (a, mask = l2)
121 if (ia(1).ne.2) call abort 121 if (ia(1).ne.2) STOP 38
122 a(2) = minf 122 a(2) = minf
123 ia = minloc (a, mask = l) 123 ia = minloc (a, mask = l)
124 if (ia(1).ne.2) call abort 124 if (ia(1).ne.2) STOP 39
125 ia = minloc (a, mask = l2) 125 ia = minloc (a, mask = l2)
126 if (ia(1).ne.2) call abort 126 if (ia(1).ne.2) STOP 40
127 c(:) = nan 127 c(:) = nan
128 ia = minloc (c, mask = l) 128 ia = minloc (c, mask = l)
129 if (ia(1).ne.1) call abort 129 if (ia(1).ne.1) STOP 41
130 ia = minloc (c, mask = l2) 130 ia = minloc (c, mask = l2)
131 if (ia(1).ne.1) call abort 131 if (ia(1).ne.1) STOP 42
132 c(:) = pinf 132 c(:) = pinf
133 ia = minloc (c, mask = l) 133 ia = minloc (c, mask = l)
134 if (ia(1).ne.1) call abort 134 if (ia(1).ne.1) STOP 43
135 ia = minloc (c, mask = l2) 135 ia = minloc (c, mask = l2)
136 if (ia(1).ne.1) call abort 136 if (ia(1).ne.1) STOP 44
137 c(1:2) = nan 137 c(1:2) = nan
138 ia = minloc (c, mask = l) 138 ia = minloc (c, mask = l)
139 if (ia(1).ne.3) call abort 139 if (ia(1).ne.3) STOP 45
140 ia = minloc (c, mask = l2) 140 ia = minloc (c, mask = l2)
141 if (ia(1).ne.3) call abort 141 if (ia(1).ne.3) STOP 46
142 c(2) = 1.0 142 c(2) = 1.0
143 ia = minloc (c, mask = l) 143 ia = minloc (c, mask = l)
144 if (ia(1).ne.2) call abort 144 if (ia(1).ne.2) STOP 47
145 ia = minloc (c, mask = l2) 145 ia = minloc (c, mask = l2)
146 if (ia(1).ne.2) call abort 146 if (ia(1).ne.2) STOP 48
147 c(2) = minf 147 c(2) = minf
148 ia = minloc (c, mask = l) 148 ia = minloc (c, mask = l)
149 if (ia(1).ne.2) call abort 149 if (ia(1).ne.2) STOP 49
150 ia = minloc (c, mask = l2) 150 ia = minloc (c, mask = l2)
151 if (ia(1).ne.2) call abort 151 if (ia(1).ne.2) STOP 50
152 deallocate (c) 152 deallocate (c)
153 allocate (c(-2:-3)) 153 allocate (c(-2:-3))
154 ia = minloc (c) 154 ia = minloc (c)
155 if (ia(1).ne.0) call abort 155 if (ia(1).ne.0) STOP 51
156 end 156 end