! PR fortran/100965
! { dg-do compile }

implicit none
  character(len=:), allocatable :: s
  logical :: l
  !$omp target map(from: l)
    l = allocated (s)
  !$omp end target
  if (l) stop 1

  !$omp target map(from: l)
    l = allocated (s)
  !$omp end target
  if (l) stop 2
end