! { dg-do compile }
! Just need to check if compiling and linking is possible.
!
! Check that the _vtab linking issue is resolved.
! Contributed by Damian Rouson  <damian@sourceryinstitute.org>

module m
contains
  subroutine fmt()
    class(*), pointer :: arg
    select type (arg)
    type is (integer)
    end select
  end subroutine
end module

program p
  call getSuffix()
contains
  subroutine makeString(arg1)
    class(*) :: arg1
    select type (arg1)
    type is (integer)
    end select
  end subroutine
  subroutine getSuffix()
    call makeString(1)
  end subroutine
end