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
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
prog.f95:8.1:

  mat (2, 2) = 4
 1
Warning: Nonconforming tab character at (1)
prog.f95:11.2:

      Do col = 0, row, 1
  1
Warning: Nonconforming tab character at (1)
prog.f95:12.2:

      sum += mat(row, col)
  1
Warning: Nonconforming tab character at (1)
prog.f95:12.6:

      sum += mat(row, col)
      1
Error: Unclassifiable statement at (1)
prog.f95:13.2:

      End Do
  1
Warning: Nonconforming tab character at (1)
stdout
Standard output is empty