blob: 4d5ecd2306ac7766151a02846b76d02a881fa351 [file] [log] [blame]
! { 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" } }