fork download
copy 
  1. program TEST
  2. implicit none
  3. integer, dimension(4, 2) :: tab
  4. integer :: i, j, k
  5.  
  6. k = 0
  7. do i=1,4
  8. 	do j=1,2
  9. 		tab(i, j) = k
  10. 		k = k + 1
  11. 	end do
  12. end do
  13.  
  14. do j=1,4
  15. 	write(*, *) tab(j, :)
  16. end do
  17.  
  18. end
  19.  
Success #stdin #stdout 0s 3968KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
           0           1
           2           3
           4           5
           6           7
https://ideone.com/gMlRC4
language:
Fortran (gfortran 8.3)
created:
10 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!