1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
! PR libfortran/95390
! { dg-do run { target fortran_real_10 } }
complex(kind=10) :: a(6), b, d(2,2)
logical :: m(6), n, o(2,2)
integer :: c(1), e(2)
a = (/ 1., 2., 17., 2., 2., 6. /)
b = 17.
c = findloc (a, b)
if (c(1) /= 3) stop 1
m = (/ .true., .false., .true., .true., .true., .true. /)
n = .true.
b = 2.
c = findloc (a, b, m)
if (c(1) /= 4) stop 2
c = findloc (a, b, n)
if (c(1) /= 2) stop 3
d = reshape((/ 1., 2., 2., 3. /), (/ 2, 2 /))
e = findloc (d, b, 1)
if (e(1) /= 2 .or. e(2) /= 1) stop 4
o = reshape((/ .true., .false., .true., .true. /), (/ 2, 2 /))
e = findloc (d, b, 1, o)
if (e(1) /= 0 .or. e(2) /= 1) stop 5
e = findloc (d, b, 1, n)
if (e(1) /= 2 .or. e(2) /= 1) stop 6
n = .false.
e = findloc (d, b, 1, n)
if (e(1) /= 0 .or. e(2) /= 0) stop 7
end
|
