This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
bug fc115
- From: Walt Brainerd <walt dot brainerd at gmail dot com>
- To: Gfortran <fortran at gcc dot gnu dot org>
- Date: Mon, 11 Apr 2005 10:35:59 -0700
- Subject: bug fc115
- Reply-to: walt dot brainerd at gmail dot com
--
Walt Brainerd +1-877-355-6640 (voice & fax)
The Fortran Company +1-520-760-1397 (outside USA)
6025 N. Wilmot Road walt@fortran.com
Tucson, AZ 85750 USA http://www.fortran.com
! fc115
module M
! Submitted by Walt Brainerd, The Fortran Company
! GNU Fortran 95 (GCC 4.1.0 20050322 (experimental))
! Windows XP
! In file gf115.f95:25
!
! integer, parameter, dimension(3) :: B = A(V,1)
! 1
! Internal Error at (1):
! In file gf115.f95:25
!
! integer, parameter, dimension(3) :: B = A(V,1)
! 1
! Initialization expression didn't reduce (1)
integer, parameter :: I = 3
integer A(-3:7,2)
parameter (A = reshape((/((I+II,JJ=-3,7),II=1,2)/),(/11,2/)) )
integer, parameter, dimension(3) :: V = (/ 2, 4, 6 /)
integer, parameter, dimension(3) :: B = A(V,1)
end module M