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.

Reply via email to