RESHAPE (The GNU Fortran Compiler) (original) (raw)

PROGRAM test_reshape INTEGER, DIMENSION(4) :: x WRITE(,) SHAPE(x) ! prints "4" WRITE(,) SHAPE(RESHAPE(x, (/2, 2/))) ! prints "2 2" END PROGRAM