This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
bug fc006
- From: Walt Brainerd <walt at fortran dot com>
- To: Gfortran <fortran at gcc dot gnu dot org>
- Date: Sun, 27 Mar 2005 13:58:39 -0700
- Subject: bug fc006
--
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
module c1_MOD
! Submitted by Walt Brainerd, The Fortran Company
! GNU Fortran 95 (GCC 4.1.0 20050322 (experimental))
! Windows XP
!fc006.f95: In function 'fcn':
!fc006.f95:33: internal compiler error: in gfc_conv_descriptor_dtype, at fortran/trans-array.c:177
integer, parameter :: U_1D = 10
integer, parameter :: U_2D = 23
integer, parameter :: L_1D = -1
integer, parameter :: L_2D = -2
contains
function zero()
character :: zero
zero = " "
end function zero
end module c1_MOD
program fc006
use c1_MOD
implicit none
integer :: NUMBER, Q1, Q2
character (1) S
character (1), pointer :: F(:,:)
F => FCN()
contains
function FCN()
implicit none
character (1), pointer :: FCN(:,:)
character (1) :: S
integer :: Q1, Q2
allocate (FCN(L_1D:U_1D,L_2D:U_2D))
S = ZERO()
do Q1 = lbound(FCN,1), ubound(FCN,1)
do Q2 = lbound(FCN,2), ubound(FCN,2)
FCN(Q1,Q2) = S
enddo
enddo
end function
end program fc006