PROGRAM ROOT2

      REAL*4  ANS04a,ANS04b
      REAL*8  ANS08a,ANS08b
      REAL*16 ANS16a,ANS16b

      ANS04a = SQRT(2.0)
      ANS08a = DSQRT(2.0d0)
      ANS16a = QSQRT(2.0q0)

      ANS04b = 2.0**(1.0/2.0)
      ANS08b = 2.0d0**(1.0d0/2.0d0)
      ANS16b = 2.0q0**(1.0q0/2.0q0)

      WRITE(*,600) ANS04a,ANS08a,ANS16a,
     &             ANS04b,ANS08b,ANS16b
  600 FORMAT(/'‘gžŠΦ”'/F55.50/F55.50/F55.50,
     &       /'™pζ‰‰ŽZ'/F55.50/F55.50/F55.50)

      STOP
      END



ROOT2.EXEyIntel Fortran CompilerzŽΐsŒ‹‰Κ

‘gžŠΦ”
   1.41421353816986083984375000000000000000000000000000
   1.41421356237309514547462185873882845044000000000000
   1.41421356237309504880168872420969798435000000000000
™pζ‰‰ŽZ
   1.41421353816986083984375000000000000000000000000000
   1.41421356237309514547462185873882845044000000000000
   1.41421356237309504880168872420969798435000000000000



ROOT2.EXEyGNU Fortran CompilerzŽΐsŒ‹‰Κ

‘gžŠΦ”
   1.414213538169860839843750000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
   1.414213562373095145474621858738828450441360473632812500000000000000000000000000000000000000000000000000000000000000000000
   1.414213562373095145474621858738828450441360473632812500000000000000000000000000000000000000000000000000000000000000000000
™pζ‰‰ŽZ
   1.414213538169860839843750000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
   1.414213562373095145474621858738828450441360473632812500000000000000000000000000000000000000000000000000000000000000000000
   1.414213562373095048801688724209697984347246389158627416255512374049674740456028487756157119292765855789184570312500000000



ROOT2.exeyOpen WATCOM FORTRAN 77 Optimizing CompilerzŽΐsŒ‹‰Κ¦‚S”{Έ“x‚Ι‚Ν–’‘Ξ‰ž

‘gžŠΦ”
   1.41421353816986083980000000000000000000000000000000
   1.41421356237309514550000000000000000000000000000000
™pζ‰‰ŽZ
   1.41421353816986083980000000000000000000000000000000
   1.41421356237309514550000000000000000000000000000000



¦–{—ˆ‚̐³‚΅‚’ƒ‹[ƒg‚Q‚Μ’li¬”“_ˆΘ‰Ί100Œ…‚܂Łj‚́A
   1.414213562373095048801688724209698078569671875376948073176679737990732478462107038850387534327641572735013846230912297024
A@