OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [array_simplify_1.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! Tests the fix for PR24168, in which line   would return
3
! Error: Incompatible ranks 2 and 1 in assignment at (1)
4
! This came about because the simplification of the binary
5
! operation, in the first actual argument of spread, was not
6
! returning the rank of the result.  Thus the error could
7
! be generated with any operator and other intrinsics than
8
! cshift.
9
!
10
! Contributed by Steve Kargl  
11
!
12
 integer, parameter :: nx=2, ny=2
13
 real, dimension(nx, ny) :: f
14
 f = spread(2 * cshift((/ 1, 2 /), nx/2), 2, ny)
15
end
16
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.