2010-12-20 Tobias Burnus <burnus@net-b.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / reshape_zerosize_2.f90
blobcdbee42aa6c818b718c89b5433d1d34670ff69c2
1 ! { dg-do "run" }
3 ! Simplifier of RESHAPE was broken when reshaping an empty array.
4 INTEGER, PARAMETER :: empty(0,0) = RESHAPE(SHAPE(1), (/0, 0/))
6 ! same with surplus padding
7 INTEGER, PARAMETER :: empty_padding(0,0) = RESHAPE(SHAPE(1), (/0, 0/), PAD=( (/ 1, 2 /) ))
9 ! same with required padding
10 INTEGER, PARAMETER :: non_empty(2,2) = RESHAPE(SHAPE(1), (/2, 2/), PAD=( (/ 1, 2 /) ))
11 END