Integer sumSum=0Do i=1,100,1Sum=sum+iEnddoPrint*,sumStopEnd
1 2 2 -1
5050
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!