OSDN Git Service

87c80498494893a02dada88f69c555aca1149017
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / reshape-complex.f90
1 ! { dg-do run }
2 ! PR 21127:  Reshape of complex didn't work.
3 program main
4   complex, dimension(8) :: b
5   complex, dimension(2,2) :: a
6   integer :: i
7   b = (/(i,i=1,8)/)
8   a = reshape(b(1:8:2),shape(a))
9   if (a(1,1) /= (1.0, 0.0) .or. a(2,1) /= (3.0, 0.0) .or.  &
10       a(1,2) /= (5.0, 0.0) .or. a(2,2) /= (7.0, 0.0)) call abort
11 end