Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/reshape-complex.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children | 84e7813d76e9 |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do run } | |
| 2 ! PR 21127: Reshape of complex didn't work. | |
| 3 ! PR 21480: Reshape of packed complex arrays didn't work either. | |
| 4 program main | |
| 5 complex, dimension(8) :: b | |
| 6 complex, dimension(2,2) :: a | |
| 7 complex, dimension(2) :: c,d | |
| 8 integer :: i | |
| 9 b = (/(i,i=1,8)/) | |
| 10 a = reshape(b(1:8:2),shape(a)) | |
| 11 if (a(1,1) /= (1.0, 0.0) .or. a(2,1) /= (3.0, 0.0) .or. & | |
| 12 a(1,2) /= (5.0, 0.0) .or. a(2,2) /= (7.0, 0.0)) call abort | |
| 13 c = (/( 3.14, -3.14), (2.71, -2.71)/) | |
| 14 d = reshape(c, shape (d)) | |
| 15 if (any (c .ne. d)) call abort | |
| 16 end |