! { dg-do run }
!

module m
  implicit none
contains
  function is_real8(a)
    class(*) :: a
    logical :: is_real8
    is_real8 = .false.
    select type(a)
      type is(real(kind(1.0_8)))
        is_real8 = .true. 
    end select
  end function is_real8
end module m

program test
  use m

  if (is_real8(1.0_4)) stop 1
  if (.not. is_real8(1.0_8)) stop 2
#ifdef __GFC_REAL_16__
  if (is_real8(1.0_16)) stop 3
#endif
end program