Ideone.com

fork download

Integer sum
Sum=0
Do i=1,100,1
Sum=sum+i
Enddo
Print*,sum
Stop
End

Success #stdin #stdout 0s 5300KB

stdin

1 2 2 -1

stdout

https://ideone.com/bFGVE6

language:

Fortran (gfortran 8.3)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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