! { dg-do run }
!
! Uncovered in fixing PR fortran/58793
!
! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
!
! Barfed on the hollerith argument
!
program test
  logical l
  call up("abc", l)
  if (l) STOP 1
  call up(3habc, l) ! { dg-warning "Legacy Extension" }
  if (.not. l) STOP 2
contains
  subroutine up(x, l)
    class(*) :: x
    logical l
    select type(x)
     type is (character(*))
      l = .false.
     class default
      l = .true.
    end select
  end subroutine
end program test