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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn 
! { dg-do run }
2 
  integer :: a(3), h
3 
  integer, allocatable :: c(:)
4 
  logical :: l
5 
  logical :: l2(3)
6 
 
7 
  h = -huge(h)
8 
  h = h - 1
9 
  allocate (c(3))
10 
  a(:) = 5
11 
  if (maxloc (a, dim = 1).ne.1) call abort
12 
  if (maxval (a, dim = 1).ne.5) call abort
13 
  a(2) = huge(h)
14 
  if (maxloc (a, dim = 1).ne.2) call abort
15 
  if (maxval (a, dim = 1).ne.huge(h)) call abort
16 
  a(:) = h
17 
  if (maxloc (a, dim = 1).ne.1) call abort
18 
  if (maxval (a, dim = 1).ne.h) call abort
19 
  a(3) = -huge(h)
20 
  if (maxloc (a, dim = 1).ne.3) call abort
21 
  if (maxval (a, dim = 1).ne.-huge(h)) call abort
22 
  c(:) = 5
23 
  if (maxloc (c, dim = 1).ne.1) call abort
24 
  if (maxval (c, dim = 1).ne.5) call abort
25 
  c(2) = huge(h)
26 
  if (maxloc (c, dim = 1).ne.2) call abort
27 
  if (maxval (c, dim = 1).ne.huge(h)) call abort
28 
  c(:) = h
29 
  if (maxloc (c, dim = 1).ne.1) call abort
30 
  if (maxval (c, dim = 1).ne.h) call abort
31 
  c(3) = -huge(h)
32 
  if (maxloc (c, dim = 1).ne.3) call abort
33 
  if (maxval (c, dim = 1).ne.-huge(h)) call abort
34 
  l = .false.
35 
  l2(:) = .false.
36 
  a(:) = 5
37 
  if (maxloc (a, dim = 1, mask = l).ne.0) call abort
38 
  if (maxval (a, dim = 1, mask = l).ne.h) call abort
39 
  if (maxloc (a, dim = 1, mask = l2).ne.0) call abort
40 
  if (maxval (a, dim = 1, mask = l2).ne.h) call abort
41 
  a(2) = huge(h)
42 
  if (maxloc (a, dim = 1, mask = l).ne.0) call abort
43 
  if (maxval (a, dim = 1, mask = l).ne.h) call abort
44 
  if (maxloc (a, dim = 1, mask = l2).ne.0) call abort
45 
  if (maxval (a, dim = 1, mask = l2).ne.h) call abort
46 
  a(:) = h
47 
  if (maxloc (a, dim = 1, mask = l).ne.0) call abort
48 
  if (maxval (a, dim = 1, mask = l).ne.h) call abort
49 
  if (maxloc (a, dim = 1, mask = l2).ne.0) call abort
50 
  if (maxval (a, dim = 1, mask = l2).ne.h) call abort
51 
  a(3) = -huge(h)
52 
  if (maxloc (a, dim = 1, mask = l).ne.0) call abort
53 
  if (maxval (a, dim = 1, mask = l).ne.h) call abort
54 
  if (maxloc (a, dim = 1, mask = l2).ne.0) call abort
55 
  if (maxval (a, dim = 1, mask = l2).ne.h) call abort
56 
  c(:) = 5
57 
  if (maxloc (c, dim = 1, mask = l).ne.0) call abort
58 
  if (maxval (c, dim = 1, mask = l).ne.h) call abort
59 
  if (maxloc (c, dim = 1, mask = l2).ne.0) call abort
60 
  if (maxval (c, dim = 1, mask = l2).ne.h) call abort
61 
  c(2) = huge(h)
62 
  if (maxloc (c, dim = 1, mask = l).ne.0) call abort
63 
  if (maxval (c, dim = 1, mask = l).ne.h) call abort
64 
  if (maxloc (c, dim = 1, mask = l2).ne.0) call abort
65 
  if (maxval (c, dim = 1, mask = l2).ne.h) call abort
66 
  c(:) = h
67 
  if (maxloc (c, dim = 1, mask = l).ne.0) call abort
68 
  if (maxval (c, dim = 1, mask = l).ne.h) call abort
69 
  if (maxloc (c, dim = 1, mask = l2).ne.0) call abort
70 
  if (maxval (c, dim = 1, mask = l2).ne.h) call abort
71 
  c(3) = -huge(h)
72 
  if (maxloc (c, dim = 1, mask = l).ne.0) call abort
73 
  if (maxval (c, dim = 1, mask = l).ne.h) call abort
74 
  if (maxloc (c, dim = 1, mask = l2).ne.0) call abort
75 
  if (maxval (c, dim = 1, mask = l2).ne.h) call abort
76 
  l = .true.
77 
  l2(:) = .true.
78 
  a(:) = 5
79 
  if (maxloc (a, dim = 1, mask = l).ne.1) call abort
80 
  if (maxval (a, dim = 1, mask = l).ne.5) call abort
81 
  if (maxloc (a, dim = 1, mask = l2).ne.1) call abort
82 
  if (maxval (a, dim = 1, mask = l2).ne.5) call abort
83 
  a(2) = huge(h)
84 
  if (maxloc (a, dim = 1, mask = l).ne.2) call abort
85 
  if (maxval (a, dim = 1, mask = l).ne.huge(h)) call abort
86 
  if (maxloc (a, dim = 1, mask = l2).ne.2) call abort
87 
  if (maxval (a, dim = 1, mask = l2).ne.huge(h)) call abort
88 
  a(:) = h
89 
  if (maxloc (a, dim = 1, mask = l).ne.1) call abort
90 
  if (maxval (a, dim = 1, mask = l).ne.h) call abort
91 
  if (maxloc (a, dim = 1, mask = l2).ne.1) call abort
92 
  if (maxval (a, dim = 1, mask = l2).ne.h) call abort
93 
  a(3) = -huge(h)
94 
  if (maxloc (a, dim = 1, mask = l).ne.3) call abort
95 
  if (maxval (a, dim = 1, mask = l).ne.-huge(h)) call abort
96 
  if (maxloc (a, dim = 1, mask = l2).ne.3) call abort
97 
  if (maxval (a, dim = 1, mask = l2).ne.-huge(h)) call abort
98 
  c(:) = 5
99 
  if (maxloc (c, dim = 1, mask = l).ne.1) call abort
100 
  if (maxval (c, dim = 1, mask = l).ne.5) call abort
101 
  if (maxloc (c, dim = 1, mask = l2).ne.1) call abort
102 
  if (maxval (c, dim = 1, mask = l2).ne.5) call abort
103 
  c(2) = huge(h)
104 
  if (maxloc (c, dim = 1, mask = l).ne.2) call abort
105 
  if (maxval (c, dim = 1, mask = l).ne.huge(h)) call abort
106 
  if (maxloc (c, dim = 1, mask = l2).ne.2) call abort
107 
  if (maxval (c, dim = 1, mask = l2).ne.huge(h)) call abort
108 
  c(:) = h
109 
  if (maxloc (c, dim = 1, mask = l).ne.1) call abort
110 
  if (maxval (c, dim = 1, mask = l).ne.h) call abort
111 
  if (maxloc (c, dim = 1, mask = l2).ne.1) call abort
112 
  if (maxval (c, dim = 1, mask = l2).ne.h) call abort
113 
  c(3) = -huge(h)
114 
  if (maxloc (c, dim = 1, mask = l).ne.3) call abort
115 
  if (maxval (c, dim = 1, mask = l).ne.-huge(h)) call abort
116 
  if (maxloc (c, dim = 1, mask = l2).ne.3) call abort
117 
  if (maxval (c, dim = 1, mask = l2).ne.-huge(h)) call abort
118 
  deallocate (c)
119 
  allocate (c(-2:-3))
120 
  if (maxloc (c, dim = 1).ne.0) call abort
121 
  if (maxval (c, dim = 1).ne.h) call abort
122 
end

powered by: WebSVN 2.1.0

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