fork download
copy 
  1.        Integer sum 
  2.        sum=0
  3.        do 20 k=1,50
  4.        Sum=sum +k**2
  5.  20    continue 
  6.        Print*,'sum=',sum 
  7.        Stop 
  8.        end
Success #stdin #stdout 0s 5532KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 sum=       42925
https://ideone.com/9dEIfj
language:
Fortran (gfortran 8.3)
created:
1 year 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!