fork download
copy 
  1.       INTEGER I,SUM
  2.       SUM=0
  3.       I=1
  4.    10 IF(I.EQ.0)GOTO 20
  5.       SUM=SUM+I
  6.       I=I*2
  7.       GOTO 10
  8.    20 WRITE(6,100) SUM
  9.   100 FORMAT(16H 1+2+4+8+16+...=,I10)
  10.       STOP
  11.       END
Success #stdin #stdout 0s 3984KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 1+2+4+8+16+...=        -1
https://ideone.com/L27YBR
language:
Fortran (gfortran 8.3)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!