fork download
  1. program jog
  2. integer :: a, b, result
  3.  
  4. print *, ''
  5. read *, a
  6.  
  7. print *, ''
  8. read *, b
  9.  
  10. result = a + b
  11.  
  12. print *,result
  13. end program jog
Success #stdin #stdout 0s 5320KB
stdin
6
7
stdout
 
 
          13