18 October   2023   9:38:15.100 AM      
 
gfortran_quadmath_test():
  FORTRAN77 version
  Test gfortran quadmath arithmetic.
 
TEST01
  Using REAL ( KIND = 4 ) arithmetic:
  Compute smallest 1/2^DIV that can be added to 1.
  Number of divisions DIV =   23
  1/2^DIV =           0.119209E-06
  Machine epsilon =   0.119209E-06
 
TEST02
  Using REAL ( KIND = 8 ) arithmetic:
  Compute smallest 1/2^DIV that can be added to 1.
  Number of divisions DIV =   52
  1/2^DIV =           0.222045E-15
  Machine epsilon =   0.222045E-15
 
TEST03
  Using REAL ( KIND = 10 ) arithmetic:
  Compute smallest 1/2^DIV that can be added to 1.
  Number of divisions DIV =   63
  1/2^DIV =           0.108420E-18
  Machine epsilon =   0.108420E-18
 
gfortran_quadmath_test():
  Normal end of execution.
 
18 October   2023   9:38:15.101 AM