summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/array_simplify_1.f90
blob: c638dee0c3cc8445f8fb5c27cd7510b57f161cda (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
! { 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  <kargl@gcc.gnu.org>
!
 integer, parameter :: nx=2, ny=2
 real, dimension(nx, ny) :: f
 f = spread(2 * cshift((/ 1, 2 /), nx/2), 2, ny)
end