fork download 
  1. program loop
  2.       integer row, col
  3.       integer mat(2,2)
  4.       integer sum
  5.       mat (1, 1) = 1
  6.       mat (1, 2) = 2
  7.       mat (2, 1) = 3
  8. 	 mat (2, 2) = 4
  9.      sum = 0
  10.       Do row = 0, col, 1
  11.  	    Do col = 0, row, 1
  12.  	    sum = mat(row, col)
  13.  	    End Do
  14.       End Do
  15.  
  16.       print *, sum
  17.  
  18. end program loop
Success #stdin #stdout 0.01s 2620KB
comments (?)
stdin 
Standard input is empty
stdout 
           0
https://ideone.com/MgXJn
language:
Fortran (gfortran 8.3)
created:
14 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!