https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95390
Bug ID: 95390
Summary: _gfortran_{,m,s}findloc[01]_c10 not exported from
libgfortran.so.5
Product: gcc
Version: 10.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: libfortran
Assignee: unassigned at gcc dot gnu.org
Reporter: jakub at gcc dot gnu.org
Target Milestone: ---
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
does not link due to that.
