Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/reshape_7.f90 @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 84e7813d76e9
children
line wrap: on
line source

! { dg-do compile }
! PR fortran/66380
!
subroutine p0
   integer, parameter :: sh(2) = [2, 3]
   integer, parameter :: &
   & a(2,2) = reshape([1, 2, 3, 4], sh)   ! { dg-error "Different shape" }
   if (a(1,1) /= 0) STOP 1
end subroutine p0


subroutine p1
   integer, parameter :: sh(2) = [2, 1]
   integer, parameter :: &
   &  a(2,2) = reshape([1, 2, 3, 4], sh)  ! { dg-error "Different shape" }
   if (a(1,1) /= 0) STOP 2
end subroutine p1