fork download
  1. program test
  2. Implicit NONE
  3. INTEGER K
  4. DO 250 K=1,10
  5. 250 print *, 'K= ', K
  6.  
  7. end program test
Success #stdin #stdout 0.01s 5324KB
stdin
Standard input is empty
stdout
 K=            1
 K=            2
 K=            3
 K=            4
 K=            5
 K=            6
 K=            7
 K=            8
 K=            9
 K=           10