Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/array_constructor_19.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line source

! 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./))) STOP 1
  if (any (x2 /= (/43./))) STOP 2
  if (any (x3 /= (/-42./))) STOP 3
  if (any (x4 /= (/44., 4./))) STOP 4
end