real*8 a, pai, pi_
a=1.d-307; print *, a, 1./a; print *, tiny(a), huge(a)
b=1.e-39 ; print *, b, 1./b; print *, tiny(b), huge(b)

pi =3.14159265358979_8 ; print *, pi    ! pi 無雙精度定義，仍為單精度。
a  =3.14159265358979_8 ; print *, a     ! _8 的作用相當于 d0, 正確的方法
pai=3.14159265358979   ; print *, pai   ! 盡管定義為雙精度，但無d0，仍為單精度。
pi_=3.14159265358979d0 ; print *, pi_   ! 正確的方法
						 print *, 3.14159265358979_8   ! 直接打印雙精度數
						 print *, 3.14159265358979_4   ! 直接打印單精度數

END