URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [shape_reshape.f90] - Diff between revs 303 and 384

Rev 303	Rev 384
`! This checks that the shape of the SHAPE intrinsic is known.`	`! This checks that the shape of the SHAPE intrinsic is known.`
`PROGRAM shape_reshape`	`PROGRAM shape_reshape`
`INTEGER, ALLOCATABLE :: I(:,:)`	`INTEGER, ALLOCATABLE :: I(:,:)`
`ALLOCATE(I(2,2))`	`ALLOCATE(I(2,2))`
`I = RESHAPE((/1,2,3,4/),SHAPE=SHAPE(I))`	`I = RESHAPE((/1,2,3,4/),SHAPE=SHAPE(I))`
`DEALLOCATE(I)`	`DEALLOCATE(I)`
`END PROGRAM`	`END PROGRAM`