1! { dg-do run }
2!
3! Uncovered in fixing PR fortran/58793
4!
5! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
6!
7! Barfed on the hollerith argument
8!
9program test
10  logical l
11  call up("abc", l)
12  if (l) call abort
13  call up(3habc, l) ! { dg-warning "Legacy Extension" }
14  if (.not. l) call abort
15contains
16  subroutine up(x, l)
17    class(*) :: x
18    logical l
19    select type(x)
20     type is (character(*))
21      l = .false.
22     class default
23      l = .true.
24    end select
25  end subroutine
26end program test
27