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