fork download
  1. program Addnumbers
  2. real::s,b,result
  3. read *,s
  4. read *,b
  5. result=s+b
  6. print *,'The result is:',result
  7. end program Addnumbers
Success #stdin #stdout 0.01s 5288KB
stdin
5
4
stdout
 The result is:   9.00000000