Fortran中的 write默认的输出位数

今天突发奇想，想测试一下，fortran在不同精度下的小数输出位数

---

program main
    implicit none
    real   :: Four
    real*8 :: Eight
    Four = 0.00000001
    Eight= 0.00000001
    write(*,*) 'Four  = ',Four
    write(*,*) 'Eight = ',Eight
end program main

输出显示

从图中显示可以看出，对于write(*,*),单精度的输出位数为9位，双精度的输出位数是17位