＜DOUBLE PRECISION Example Program＞

Program double_precision_example
  Double Precision :: a
  a = 1.23456789d0
  Print *,a
End Program

---

■ Execution Results

   1.2345678899999999