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.