fork download
  1. program TEST
  2. ! your code goes here
  3. real d
  4. real pi
  5. real r
  6. character str
  7. parameter(pi=3.1415)
  8. read(*,*)r
  9. write(*,*) 2*pi*r
  10. do i=1,5
  11. str = '*'
  12. end do
  13. stop
  14. end
Success #stdin #stdout 0s 3980KB
stdin
2
stdout
   12.5660000