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
|
