＜DIGITS Example Program＞

Program digits_example
  Integer,Pointer :: p
  Real,Allocatable :: q
  Double Precision :: d
  Print *,'Default Integer has', Digits(p), 'digits'
  Print *,'Default Real has', Digits(q), 'digits'
  Print *,'Double Precision Real has', Digits(d), 'digits'
End Program

■ Execution Results

 Default Integer has 31 digits
 Default Real has 24 digits
 Double Precision Real has 53 digits