! { 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 |