OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [minlocval_1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! { dg-add-options ieee }
3
! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
4
  real :: a(3), nan, minf, pinf
5
  real, allocatable :: c(:)
6
  logical :: l
7
  logical :: l2(3)
8
 
9
  nan = 0.0
10
  minf = 0.0
11
  pinf = 0.0
12
  nan = 0.0/nan
13
  minf = -1.0/minf
14
  pinf = 1.0/pinf
15
 
16
  allocate (c(3))
17
  a(:) = nan
18
  if (minloc (a, dim = 1).ne.1) call abort
19
  if (.not.isnan(minval (a, dim = 1))) call abort
20
  a(:) = pinf
21
  if (minloc (a, dim = 1).ne.1) call abort
22
  if (minval (a, dim = 1).ne.pinf) call abort
23
  a(1:2) = nan
24
  if (minloc (a, dim = 1).ne.3) call abort
25
  if (minval (a, dim = 1).ne.pinf) call abort
26
  a(2) = 1.0
27
  if (minloc (a, dim = 1).ne.2) call abort
28
  if (minval (a, dim = 1).ne.1) call abort
29
  a(2) = minf
30
  if (minloc (a, dim = 1).ne.2) call abort
31
  if (minval (a, dim = 1).ne.minf) call abort
32
  c(:) = nan
33
  if (minloc (c, dim = 1).ne.1) call abort
34
  if (.not.isnan(minval (c, dim = 1))) call abort
35
  c(:) = pinf
36
  if (minloc (c, dim = 1).ne.1) call abort
37
  if (minval (c, dim = 1).ne.pinf) call abort
38
  c(1:2) = nan
39
  if (minloc (c, dim = 1).ne.3) call abort
40
  if (minval (c, dim = 1).ne.pinf) call abort
41
  c(2) = 1.0
42
  if (minloc (c, dim = 1).ne.2) call abort
43
  if (minval (c, dim = 1).ne.1) call abort
44
  c(2) = minf
45
  if (minloc (c, dim = 1).ne.2) call abort
46
  if (minval (c, dim = 1).ne.minf) call abort
47
  l = .false.
48
  l2(:) = .false.
49
  a(:) = nan
50
  if (minloc (a, dim = 1, mask = l).ne.0) call abort
51
  if (minval (a, dim = 1, mask = l).ne.huge(pinf)) call abort
52
  if (minloc (a, dim = 1, mask = l2).ne.0) call abort
53
  if (minval (a, dim = 1, mask = l2).ne.huge(pinf)) call abort
54
  a(:) = pinf
55
  if (minloc (a, dim = 1, mask = l).ne.0) call abort
56
  if (minval (a, dim = 1, mask = l).ne.huge(pinf)) call abort
57
  if (minloc (a, dim = 1, mask = l2).ne.0) call abort
58
  if (minval (a, dim = 1, mask = l2).ne.huge(pinf)) call abort
59
  a(1:2) = nan
60
  if (minloc (a, dim = 1, mask = l).ne.0) call abort
61
  if (minval (a, dim = 1, mask = l).ne.huge(pinf)) call abort
62
  if (minloc (a, dim = 1, mask = l2).ne.0) call abort
63
  if (minval (a, dim = 1, mask = l2).ne.huge(pinf)) call abort
64
  a(2) = 1.0
65
  if (minloc (a, dim = 1, mask = l).ne.0) call abort
66
  if (minval (a, dim = 1, mask = l).ne.huge(pinf)) call abort
67
  if (minloc (a, dim = 1, mask = l2).ne.0) call abort
68
  if (minval (a, dim = 1, mask = l2).ne.huge(pinf)) call abort
69
  a(2) = minf
70
  if (minloc (a, dim = 1, mask = l).ne.0) call abort
71
  if (minval (a, dim = 1, mask = l).ne.huge(pinf)) call abort
72
  if (minloc (a, dim = 1, mask = l2).ne.0) call abort
73
  if (minval (a, dim = 1, mask = l2).ne.huge(pinf)) call abort
74
  c(:) = nan
75
  if (minloc (c, dim = 1, mask = l).ne.0) call abort
76
  if (minval (c, dim = 1, mask = l).ne.huge(pinf)) call abort
77
  if (minloc (c, dim = 1, mask = l2).ne.0) call abort
78
  if (minval (c, dim = 1, mask = l2).ne.huge(pinf)) call abort
79
  c(:) = pinf
80
  if (minloc (c, dim = 1, mask = l).ne.0) call abort
81
  if (minval (c, dim = 1, mask = l).ne.huge(pinf)) call abort
82
  if (minloc (c, dim = 1, mask = l2).ne.0) call abort
83
  if (minval (c, dim = 1, mask = l2).ne.huge(pinf)) call abort
84
  c(1:2) = nan
85
  if (minloc (c, dim = 1, mask = l).ne.0) call abort
86
  if (minval (c, dim = 1, mask = l).ne.huge(pinf)) call abort
87
  if (minloc (c, dim = 1, mask = l2).ne.0) call abort
88
  if (minval (c, dim = 1, mask = l2).ne.huge(pinf)) call abort
89
  c(2) = 1.0
90
  if (minloc (c, dim = 1, mask = l).ne.0) call abort
91
  if (minval (c, dim = 1, mask = l).ne.huge(pinf)) call abort
92
  if (minloc (c, dim = 1, mask = l2).ne.0) call abort
93
  if (minval (c, dim = 1, mask = l2).ne.huge(pinf)) call abort
94
  c(2) = minf
95
  if (minloc (c, dim = 1, mask = l).ne.0) call abort
96
  if (minval (c, dim = 1, mask = l).ne.huge(pinf)) call abort
97
  if (minloc (c, dim = 1, mask = l2).ne.0) call abort
98
  if (minval (c, dim = 1, mask = l2).ne.huge(pinf)) call abort
99
  l = .true.
100
  l2(:) = .true.
101
  a(:) = nan
102
  if (minloc (a, dim = 1, mask = l).ne.1) call abort
103
  if (.not.isnan(minval (a, dim = 1, mask = l))) call abort
104
  if (minloc (a, dim = 1, mask = l2).ne.1) call abort
105
  if (.not.isnan(minval (a, dim = 1, mask = l2))) call abort
106
  a(:) = pinf
107
  if (minloc (a, dim = 1, mask = l).ne.1) call abort
108
  if (minval (a, dim = 1, mask = l).ne.pinf) call abort
109
  if (minloc (a, dim = 1, mask = l2).ne.1) call abort
110
  if (minval (a, dim = 1, mask = l2).ne.pinf) call abort
111
  a(1:2) = nan
112
  if (minloc (a, dim = 1, mask = l).ne.3) call abort
113
  if (minval (a, dim = 1, mask = l).ne.pinf) call abort
114
  if (minloc (a, dim = 1, mask = l2).ne.3) call abort
115
  if (minval (a, dim = 1, mask = l2).ne.pinf) call abort
116
  a(2) = 1.0
117
  if (minloc (a, dim = 1, mask = l).ne.2) call abort
118
  if (minval (a, dim = 1, mask = l).ne.1) call abort
119
  if (minloc (a, dim = 1, mask = l2).ne.2) call abort
120
  if (minval (a, dim = 1, mask = l2).ne.1) call abort
121
  a(2) = minf
122
  if (minloc (a, dim = 1, mask = l).ne.2) call abort
123
  if (minval (a, dim = 1, mask = l).ne.minf) call abort
124
  if (minloc (a, dim = 1, mask = l2).ne.2) call abort
125
  if (minval (a, dim = 1, mask = l2).ne.minf) call abort
126
  c(:) = nan
127
  if (minloc (c, dim = 1, mask = l).ne.1) call abort
128
  if (.not.isnan(minval (c, dim = 1, mask = l))) call abort
129
  if (minloc (c, dim = 1, mask = l2).ne.1) call abort
130
  if (.not.isnan(minval (c, dim = 1, mask = l2))) call abort
131
  c(:) = pinf
132
  if (minloc (c, dim = 1, mask = l).ne.1) call abort
133
  if (minval (c, dim = 1, mask = l).ne.pinf) call abort
134
  if (minloc (c, dim = 1, mask = l2).ne.1) call abort
135
  if (minval (c, dim = 1, mask = l2).ne.pinf) call abort
136
  c(1:2) = nan
137
  if (minloc (c, dim = 1, mask = l).ne.3) call abort
138
  if (minval (c, dim = 1, mask = l).ne.pinf) call abort
139
  if (minloc (c, dim = 1, mask = l2).ne.3) call abort
140
  if (minval (c, dim = 1, mask = l2).ne.pinf) call abort
141
  c(2) = 1.0
142
  if (minloc (c, dim = 1, mask = l).ne.2) call abort
143
  if (minval (c, dim = 1, mask = l).ne.1) call abort
144
  if (minloc (c, dim = 1, mask = l2).ne.2) call abort
145
  if (minval (c, dim = 1, mask = l2).ne.1) call abort
146
  c(2) = minf
147
  if (minloc (c, dim = 1, mask = l).ne.2) call abort
148
  if (minval (c, dim = 1, mask = l).ne.minf) call abort
149
  if (minloc (c, dim = 1, mask = l2).ne.2) call abort
150
  if (minval (c, dim = 1, mask = l2).ne.minf) call abort
151
  deallocate (c)
152
  allocate (c(-2:-3))
153
  if (minloc (c, dim = 1).ne.0) call abort
154
  if (minval (c, dim = 1).ne.huge(pinf)) call abort
155
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.