?? reshape-complex.f90
字號:
! { 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)) call abort c = (/( 3.14, -3.14), (2.71, -2.71)/) d = reshape(c, shape (d)) if (any (c .ne. d)) call abortend
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -