fork download
  1. program main
  2. implicit none
  3. real :: a, root
  4. a = 16.0
  5. root = sqrt(a)
  6. print *, root
  7. end program
Success #stdin #stdout 0.01s 5292KB
stdin
Standard input is empty
stdout
   4.00000000