Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/reshape-complex.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! PR 21127: Reshape of complex didn't work. ! PR 21480: Reshape of packed complex arrays didn't work either. program main complex, dimension(8) :: b complex, dimension(2,2) :: a complex, dimension(2) :: c,d integer :: i b = (/(i,i=1,8)/) a = reshape(b(1:8:2),shape(a)) if (a(1,1) /= (1.0, 0.0) .or. a(2,1) /= (3.0, 0.0) .or. & a(1,2) /= (5.0, 0.0) .or. a(2,2) /= (7.0, 0.0)) STOP 1 c = (/( 3.14, -3.14), (2.71, -2.71)/) d = reshape(c, shape (d)) if (any (c .ne. d)) STOP 2 end