fork download
  1. program Multiply
  2. real::a,b,result
  3. print *,' '
  4. read *,a
  5. read *,b
  6. result=a+b
  7. print *,'The result is:',result
  8. end program Multiply
Success #stdin #stdout 0s 5320KB
stdin
5
4.55
stdout
  
 The result is:   9.55000019