fork download
  1. Integer sum
  2. Sum=0
  3. Do i=1,100,1
  4. Sum=sum+i
  5. Enddo
  6. Print*,sum
  7. Stop
  8. End
Success #stdin #stdout 0s 5300KB
stdin
1 2 2 -1
stdout
        5050