fork download
copy 
  1. program TR
  2. implicit none 
  3. real, dimension(1:3,1:2)::A=(/'A11', 'A12', 'A21', 'A22', 'A31', 'A32'/)
  4. real, dimension( 1:2,1:3)::AT=(/'A12', 'A22', 'A32', 'A11', 'A21', 'A31'/)
  5. write(*,*) 'A= ?'
  6. read(*,*) AT 
  7. end program TR
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.f95:3:27:

 real, dimension(1:3,1:2)::A=(/'A11', 'A12', 'A21', 'A22', 'A31', 'A32'/)
                           1
Error: Incompatible ranks 2 and 1 in assignment at (1)
prog.f95:4:29:

 real, dimension( 1:2,1:3)::AT=(/'A12', 'A22', 'A32', 'A11', 'A21', 'A31'/)
                             1
Error: Incompatible ranks 2 and 1 in assignment at (1)
prog.f95:6:12:

 read(*,*) AT
            1
Error: Symbol ‘at’ at (1) has no IMPLICIT type
stdout
copy 
Standard output is empty
https://ideone.com/aivM6T
language:
Fortran (gfortran 8.3)
created:
7 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!