Be concise.
Be useful.
All contributions dictatorially edited by webmasters to match personal tastes.
Please do not paste any copyright violating material.
Please try to avoid dependencies to third-party libraries and frameworks.
(def a 1234567890.12345678901M)
decimal a = 1234567890.12345678901m;
integer, parameter :: qp = selected_real_kind(20)
real(kind=qp) :: a