! { dg-do run }
! { dg-options "-fdump-tree-original" }
! PR fortran/110288 - FINDLOC and deferred-length character arguments

program test
  character(len=:), allocatable :: array(:)
  character(len=:), allocatable :: value
  array = ["bb", "aa"]
  value = "aa"
  if (findloc (array, value, dim=1) /= 2) stop 1
end program test

! { dg-final { scan-tree-dump "_gfortran_findloc2_s1 \\(.*, \\.array, \\.value\\)" "original" } }