mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
33 lines
785 B
Fortran
33 lines
785 B
Fortran
! { dg-do run }
|
|
! { dg-options "-std=f2008 " }
|
|
!
|
|
|
|
integer :: p, r, rdx
|
|
|
|
! Compile-time version
|
|
|
|
if (selected_real_kind(radix=2) /= 4) call should_not_fail()
|
|
if (selected_real_kind(radix=4) /= -5) call should_not_fail()
|
|
if (selected_real_kind(precision(0.0),range(0.0),radix(0.0)) /= kind(0.0)) &
|
|
call should_not_fail()
|
|
if (selected_real_kind(precision(0.0d0),range(0.0d0),radix(0.0d0)) /= kind(0.0d0)) &
|
|
call should_not_fail()
|
|
|
|
! Run-time version
|
|
|
|
rdx = 2
|
|
if (selected_real_kind(radix=rdx) /= 4) STOP 1
|
|
rdx = 4
|
|
if (selected_real_kind(radix=rdx) /= -5) STOP 2
|
|
|
|
rdx = radix(0.0)
|
|
p = precision(0.0)
|
|
r = range(0.0)
|
|
if (selected_real_kind(p,r,rdx) /= kind(0.0)) STOP 3
|
|
|
|
rdx = radix(0.0d0)
|
|
p = precision(0.0d0)
|
|
r = range(0.0d0)
|
|
if (selected_real_kind(p,r,rdx) /= kind(0.0d0)) STOP 4
|
|
end
|