array_simplify_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 17 行

! { dg-do compile }
! Tests the fix for PR24168, in which line   would return
! Error: Incompatible ranks 2 and 1 in assignment at (1)
! This came about because the simplification of the binary
! operation, in the first actual argument of spread, was not
! returning the rank of the result.  Thus the error could
! be generated with any operator and other intrinsics than
! cshift.
!
! Contributed by Steve Kargl  <[e-mail]>
!
 integer, parameter :: nx=2, ny=2
 real, dimension(nx, ny) :: f
 f = spread(2 * cshift((/ 1, 2 /), nx/2), 2, ny)
end