PROGRAM SQRTRQS

              REAL*4  ANS1a,ANS1b,RI1
              REAL*8  ANS2a,ANS2b,RI2
              REAL*16 ANS4a,ANS4b,RI4

      DO 10 I=1,10
         RI1  = FLOAT(I)
         RI2  = FLOAT(I)
         RI4  = FLOAT(I)

         ANS1a = SQRT( RI1 )
         ANS2a = DSQRT( RI2 )
         ANS4a = QSQRT( RI4 )
         ANS4b = ANS4a*ANS4a
         ANS2b = ANS2a*ANS2a
         ANS1b = ANS1a*ANS1a

         PRINT *,I
         PRINT *,ANS1a
         PRINT *,ANS2a
         PRINT *,ANS4a
         PRINT *,ANS4b
         PRINT *,ANS2b
         PRINT *,ANS1b
   10 CONTINUE

      STOP
      END



SQRTRQS.EXE【intel Fortran Compiler】実行結果

           1
   1.000000
   1.00000000000000
   1.00000000000000000000000000000000
   1.00000000000000000000000000000000
   1.00000000000000
   1.000000
           2
   1.414214
   1.41421356237310
   1.41421356237309504880168872420970
   2.00000000000000000000000000000000
   2.00000000000000
   2.000000
           3
   1.732051
   1.73205080756888
   1.73205080756887729352744634150587
   3.00000000000000000000000000000000
   3.00000000000000
   3.000000
           4
   2.000000
   2.00000000000000
   2.00000000000000000000000000000000
   4.00000000000000000000000000000000
   4.00000000000000
   4.000000
           5
   2.236068
   2.23606797749979
   2.23606797749978969640917366873128
   5.00000000000000000000000000000000
   5.00000000000000
   5.000000
           6
   2.449490
   2.44948974278318
   2.44948974278317809819728407470589
   6.00000000000000000000000000000000
   6.00000000000000
   6.000000
           7
   2.645751
   2.64575131106459
   2.64575131106459059050161575363926
   7.00000000000000000000000000000000
   7.00000000000000
   7.000000
           8
   2.828427
   2.82842712474619
   2.82842712474619009760337744841940
   8.00000000000000000000000000000000
   8.00000000000000
   8.000000
           9
   3.000000
   3.00000000000000
   3.00000000000000000000000000000000
   9.00000000000000000000000000000000
   9.00000000000000
   9.000000
          10
   3.162278
   3.16227766016838
   3.16227766016837933199889354443272
   10.0000000000000000000000000000000
   10.0000000000000
   10.00000



SQRTRQS.EXE【Open WATCOM FORTRAN 77 Optimizing Compiler】実行結果※４倍精度には未対応

           1
       1.0000000
       1.0000000000000000
       1.0000000000000000
       1.0000000
           2
       1.4142135
       1.4142135623730951
       2.0000000000000004
       1.9999999
           3
       1.7320508
       1.7320508075688772
       2.9999999999999996
       3.0000000
           4
       2.0000000
       2.0000000000000000
       4.0000000000000000
       4.0000000
           5
       2.2360680
       2.2360679774997898
       5.0000000000000009
       5.0000000
           6
       2.4494898
       2.4494897427831779
       5.9999999999999991
       6.0000005
           7
       2.6457512
       2.6457513110645907
       7.0000000000000009
       6.9999995
           8
       2.8284271
       2.8284271247461903
       8.0000000000000018
       7.9999995
           9
       3.0000000
       3.0000000000000000
       9.0000000000000000
       9.0000000
          10
       3.1622777
       3.1622776601683795
      10.0000000000000018
      10.0000000