Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/minloc_1.f90 @ 145:1830386684a0

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