URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_19.f90] - Rev 327
Go to most recent revision | Compare with Previous | Blame | View Log
! Simplification of unary and binary expressions containing
! array constructors.
!
! See PR33288
!
! { dg-do run }
real, parameter :: x(1) = 42
real, parameter :: x1(1) = (/ x /) + 1
real, parameter :: x2(1) = 1 + (/ x /)
real, parameter :: x3(1) = -(/ x /)
real, parameter :: x4(2) = (/ x, 1. /) + (/ 2, (/3/) /)
if (any (x1 /= (/43./))) call abort
if (any (x2 /= (/43./))) call abort
if (any (x3 /= (/-42./))) call abort
if (any (x4 /= (/44., 4./))) call abort
end
Go to most recent revision | Compare with Previous | Blame | View Log