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