Ideone.com

fork download

copy

DIMENSION A(3,4)
READ*,((A(I,J),J=1,4),I=1,3)
PRINT 10,((A(I,J),I=1,3),J=1,4)
10 FORMAT(2X,3F10.2)
STOP
END

Success #stdin #stdout 0s 5284KB

stdin

copy

1 2 3 4 
2 3 4 5
3 4 5 6

stdout

copy

        1.00      2.00      3.00
        2.00      3.00      4.00
        3.00      4.00      5.00
        4.00      5.00      6.00

https://ideone.com/TMo2zo

language:

Fortran (gfortran 8.3)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!