Test real precision constants and actual accuracy
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
subroutine testPrecision
!! Test real precision constants and actual accuracy
integer,dimension(4)::prec
prec(1) = precision(1.0_sp)
prec(2) = precision(1.0_dp)
prec(3) = precision(1.0_ep)
prec(4) = precision(1.0_qp)
if( any(prec<[6,15,18,33]) ) then
call printTypes
error stop "Failed real kinds precision check"
end if
end subroutine testPrecision