Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/minlocval_4.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
19 l5 = .true. 19 l5 = .true.
20 l5(1,1) = .false. 20 l5(1,1) = .false.
21 l5(1,2) = .false. 21 l5(1,2) = .false.
22 l5(2,3) = .false. 22 l5(2,3) = .false.
23 a = reshape ((/ nan, nan, nan, pinf, pinf, pinf, pinf, minf, pinf /), (/ 3, 3 /)) 23 a = reshape ((/ nan, nan, nan, pinf, pinf, pinf, pinf, minf, pinf /), (/ 3, 3 /))
24 if (minval (a).ne.minf) call abort 24 if (minval (a).ne.minf) STOP 1
25 if (any (minloc (a).ne.(/ 2, 3 /))) call abort 25 if (any (minloc (a).ne.(/ 2, 3 /))) STOP 2
26 b = minval (a, dim = 1) 26 b = minval (a, dim = 1)
27 if (.not.isnan(b(1))) call abort 27 if (.not.isnan(b(1))) STOP 3
28 b(1) = 0.0 28 b(1) = 0.0
29 if (any (b.ne.(/ 0.0, pinf, minf /))) call abort 29 if (any (b.ne.(/ 0.0, pinf, minf /))) STOP 4
30 if (any (minloc (a, dim = 1).ne.(/ 1, 1, 2 /))) call abort 30 if (any (minloc (a, dim = 1).ne.(/ 1, 1, 2 /))) STOP 5
31 b = minval (a, dim = 2) 31 b = minval (a, dim = 2)
32 if (any (b.ne.(/ pinf, minf, pinf /))) call abort 32 if (any (b.ne.(/ pinf, minf, pinf /))) STOP 6
33 if (any (minloc (a, dim = 2).ne.(/ 2, 3, 2 /))) call abort 33 if (any (minloc (a, dim = 2).ne.(/ 2, 3, 2 /))) STOP 7
34 if (minval (a, mask = l).ne.h) call abort 34 if (minval (a, mask = l).ne.h) STOP 8
35 if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) call abort 35 if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) STOP 9
36 b = minval (a, dim = 1, mask = l) 36 b = minval (a, dim = 1, mask = l)
37 if (any (b.ne.(/ h, h, h /))) call abort 37 if (any (b.ne.(/ h, h, h /))) STOP 10
38 if (any (minloc (a, dim = 1, mask = l).ne.(/ 0, 0, 0 /))) call abort 38 if (any (minloc (a, dim = 1, mask = l).ne.(/ 0, 0, 0 /))) STOP 11
39 b = minval (a, dim = 2, mask = l) 39 b = minval (a, dim = 2, mask = l)
40 if (any (b.ne.(/ h, h, h /))) call abort 40 if (any (b.ne.(/ h, h, h /))) STOP 12
41 if (any (minloc (a, dim = 2, mask = l).ne.(/ 0, 0, 0 /))) call abort 41 if (any (minloc (a, dim = 2, mask = l).ne.(/ 0, 0, 0 /))) STOP 13
42 if (minval (a, mask = l3).ne.h) call abort 42 if (minval (a, mask = l3).ne.h) STOP 14
43 if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) call abort 43 if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) STOP 15
44 b = minval (a, dim = 1, mask = l3) 44 b = minval (a, dim = 1, mask = l3)
45 if (any (b.ne.(/ h, h, h /))) call abort 45 if (any (b.ne.(/ h, h, h /))) STOP 16
46 if (any (minloc (a, dim = 1, mask = l3).ne.(/ 0, 0, 0 /))) call abort 46 if (any (minloc (a, dim = 1, mask = l3).ne.(/ 0, 0, 0 /))) STOP 17
47 b = minval (a, dim = 2, mask = l3) 47 b = minval (a, dim = 2, mask = l3)
48 if (any (b.ne.(/ h, h, h /))) call abort 48 if (any (b.ne.(/ h, h, h /))) STOP 18
49 if (any (minloc (a, dim = 2, mask = l3).ne.(/ 0, 0, 0 /))) call abort 49 if (any (minloc (a, dim = 2, mask = l3).ne.(/ 0, 0, 0 /))) STOP 19
50 if (minval (a, mask = l2).ne.minf) call abort 50 if (minval (a, mask = l2).ne.minf) STOP 20
51 if (minval (a, mask = l4).ne.minf) call abort 51 if (minval (a, mask = l4).ne.minf) STOP 21
52 if (any (minloc (a, mask = l2).ne.(/ 2, 3 /))) call abort 52 if (any (minloc (a, mask = l2).ne.(/ 2, 3 /))) STOP 22
53 if (any (minloc (a, mask = l4).ne.(/ 2, 3 /))) call abort 53 if (any (minloc (a, mask = l4).ne.(/ 2, 3 /))) STOP 23
54 b = minval (a, dim = 1, mask = l2) 54 b = minval (a, dim = 1, mask = l2)
55 if (.not.isnan(b(1))) call abort 55 if (.not.isnan(b(1))) STOP 24
56 b(1) = 0.0 56 b(1) = 0.0
57 if (any (b.ne.(/ 0.0, pinf, minf /))) call abort 57 if (any (b.ne.(/ 0.0, pinf, minf /))) STOP 25
58 if (any (minloc (a, dim = 1, mask = l2).ne.(/ 1, 1, 2 /))) call abort 58 if (any (minloc (a, dim = 1, mask = l2).ne.(/ 1, 1, 2 /))) STOP 26
59 b = minval (a, dim = 2, mask = l2) 59 b = minval (a, dim = 2, mask = l2)
60 if (any (b.ne.(/ pinf, minf, pinf /))) call abort 60 if (any (b.ne.(/ pinf, minf, pinf /))) STOP 27
61 if (any (minloc (a, dim = 2, mask = l2).ne.(/ 2, 3, 2 /))) call abort 61 if (any (minloc (a, dim = 2, mask = l2).ne.(/ 2, 3, 2 /))) STOP 28
62 b = minval (a, dim = 1, mask = l4) 62 b = minval (a, dim = 1, mask = l4)
63 if (.not.isnan(b(1))) call abort 63 if (.not.isnan(b(1))) STOP 29
64 b(1) = 0.0 64 b(1) = 0.0
65 if (any (b.ne.(/ 0.0, pinf, minf /))) call abort 65 if (any (b.ne.(/ 0.0, pinf, minf /))) STOP 30
66 if (any (minloc (a, dim = 1, mask = l2).ne.(/ 1, 1, 2 /))) call abort 66 if (any (minloc (a, dim = 1, mask = l2).ne.(/ 1, 1, 2 /))) STOP 31
67 b = minval (a, dim = 2, mask = l4) 67 b = minval (a, dim = 2, mask = l4)
68 if (any (b.ne.(/ pinf, minf, pinf /))) call abort 68 if (any (b.ne.(/ pinf, minf, pinf /))) STOP 32
69 if (any (minloc (a, dim = 2, mask = l2).ne.(/ 2, 3, 2 /))) call abort 69 if (any (minloc (a, dim = 2, mask = l2).ne.(/ 2, 3, 2 /))) STOP 33
70 if (minval (a, mask = l5).ne.pinf) call abort 70 if (minval (a, mask = l5).ne.pinf) STOP 34
71 if (any (minloc (a, mask = l5).ne.(/ 2, 2 /))) call abort 71 if (any (minloc (a, mask = l5).ne.(/ 2, 2 /))) STOP 35
72 b = minval (a, dim = 1, mask = l5) 72 b = minval (a, dim = 1, mask = l5)
73 if (.not.isnan(b(1))) call abort 73 if (.not.isnan(b(1))) STOP 36
74 b(1) = 0.0 74 b(1) = 0.0
75 if (any (b.ne.(/ 0.0, pinf, pinf /))) call abort 75 if (any (b.ne.(/ 0.0, pinf, pinf /))) STOP 37
76 if (any (minloc (a, dim = 1, mask = l5).ne.(/ 2, 2, 1 /))) call abort 76 if (any (minloc (a, dim = 1, mask = l5).ne.(/ 2, 2, 1 /))) STOP 38
77 b = minval (a, dim = 2, mask = l5) 77 b = minval (a, dim = 2, mask = l5)
78 if (any (b.ne.(/ pinf, pinf, pinf /))) call abort 78 if (any (b.ne.(/ pinf, pinf, pinf /))) STOP 39
79 if (any (minloc (a, dim = 2, mask = l5).ne.(/ 3, 2, 2 /))) call abort 79 if (any (minloc (a, dim = 2, mask = l5).ne.(/ 3, 2, 2 /))) STOP 40
80 a = nan 80 a = nan
81 if (.not.isnan(minval (a))) call abort 81 if (.not.isnan(minval (a))) STOP 41
82 if (minval (a, mask = l).ne.h) call abort 82 if (minval (a, mask = l).ne.h) STOP 42
83 if (.not.isnan(minval (a, mask = l2))) call abort 83 if (.not.isnan(minval (a, mask = l2))) STOP 43
84 if (minval (a, mask = l3).ne.h) call abort 84 if (minval (a, mask = l3).ne.h) STOP 44
85 if (.not.isnan(minval (a, mask = l4))) call abort 85 if (.not.isnan(minval (a, mask = l4))) STOP 45
86 if (.not.isnan(minval (a, mask = l5))) call abort 86 if (.not.isnan(minval (a, mask = l5))) STOP 46
87 if (any (minloc (a).ne.(/ 1, 1 /))) call abort 87 if (any (minloc (a).ne.(/ 1, 1 /))) STOP 47
88 if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) call abort 88 if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) STOP 48
89 if (any (minloc (a, mask = l2).ne.(/ 1, 1 /))) call abort 89 if (any (minloc (a, mask = l2).ne.(/ 1, 1 /))) STOP 49
90 if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) call abort 90 if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) STOP 50
91 if (any (minloc (a, mask = l4).ne.(/ 1, 1 /))) call abort 91 if (any (minloc (a, mask = l4).ne.(/ 1, 1 /))) STOP 51
92 if (any (minloc (a, mask = l5).ne.(/ 2, 1 /))) call abort 92 if (any (minloc (a, mask = l5).ne.(/ 2, 1 /))) STOP 52
93 a = pinf 93 a = pinf
94 if (minval (a).ne.pinf) call abort 94 if (minval (a).ne.pinf) STOP 53
95 if (minval (a, mask = l).ne.h) call abort 95 if (minval (a, mask = l).ne.h) STOP 54
96 if (minval (a, mask = l2).ne.pinf) call abort 96 if (minval (a, mask = l2).ne.pinf) STOP 55
97 if (minval (a, mask = l3).ne.h) call abort 97 if (minval (a, mask = l3).ne.h) STOP 56
98 if (minval (a, mask = l4).ne.pinf) call abort 98 if (minval (a, mask = l4).ne.pinf) STOP 57
99 if (minval (a, mask = l5).ne.pinf) call abort 99 if (minval (a, mask = l5).ne.pinf) STOP 58
100 if (any (minloc (a).ne.(/ 1, 1 /))) call abort 100 if (any (minloc (a).ne.(/ 1, 1 /))) STOP 59
101 if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) call abort 101 if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) STOP 60
102 if (any (minloc (a, mask = l2).ne.(/ 1, 1 /))) call abort 102 if (any (minloc (a, mask = l2).ne.(/ 1, 1 /))) STOP 61
103 if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) call abort 103 if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) STOP 62
104 if (any (minloc (a, mask = l4).ne.(/ 1, 1 /))) call abort 104 if (any (minloc (a, mask = l4).ne.(/ 1, 1 /))) STOP 63
105 if (any (minloc (a, mask = l5).ne.(/ 2, 1 /))) call abort 105 if (any (minloc (a, mask = l5).ne.(/ 2, 1 /))) STOP 64
106 a = nan 106 a = nan
107 a(1,3) = pinf 107 a(1,3) = pinf
108 if (minval (a).ne.pinf) call abort 108 if (minval (a).ne.pinf) STOP 65
109 if (minval (a, mask = l).ne.h) call abort 109 if (minval (a, mask = l).ne.h) STOP 66
110 if (minval (a, mask = l2).ne.pinf) call abort 110 if (minval (a, mask = l2).ne.pinf) STOP 67
111 if (minval (a, mask = l3).ne.h) call abort 111 if (minval (a, mask = l3).ne.h) STOP 68
112 if (minval (a, mask = l4).ne.pinf) call abort 112 if (minval (a, mask = l4).ne.pinf) STOP 69
113 if (minval (a, mask = l5).ne.pinf) call abort 113 if (minval (a, mask = l5).ne.pinf) STOP 70
114 if (any (minloc (a).ne.(/ 1, 3 /))) call abort 114 if (any (minloc (a).ne.(/ 1, 3 /))) STOP 71
115 if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) call abort 115 if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) STOP 72
116 if (any (minloc (a, mask = l2).ne.(/ 1, 3 /))) call abort 116 if (any (minloc (a, mask = l2).ne.(/ 1, 3 /))) STOP 73
117 if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) call abort 117 if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) STOP 74
118 if (any (minloc (a, mask = l4).ne.(/ 1, 3 /))) call abort 118 if (any (minloc (a, mask = l4).ne.(/ 1, 3 /))) STOP 75
119 if (any (minloc (a, mask = l5).ne.(/ 1, 3 /))) call abort 119 if (any (minloc (a, mask = l5).ne.(/ 1, 3 /))) STOP 76
120 end 120 end