[Bug fortran/23124] New: gfc_trans_deferred_array internal compiler error

[w dot t dot jones at larc dot nasa dot gov]

GNU Fortran 95 (GCC 4.1.0 20050702 (experimental))

Windows XP under MINGW32_NT-5.1 1.0.10(0.46/3/2) 2004-03-15 07:17 i686 unknown

Did not build compiler, using version from GCC site downloaded from
http://quatramaran.ens.fr/~coudert/gfortran/gfortran-windows.zip

gfortran -c -Wsurprising -pedantic -Wall -std=f95 alloctest.f90

gfortran -v -save-temps -c -Wsurprising -pedantic -Wall -std=f95 alloctest.f90
Using built-in specs.
Target: i686-pc-mingw32
Configured with: ../gcc/configure --prefix=/mingw --enable-languages=c,f95
Thread model: win32
gcc version 4.1.0 20050702 (experimental)
 c:/gfortran/bin/../libexec/gcc/i686-pc-mingw32/4.1.0/f951.exe alloctest.f90
-quiet -dumpbase alloctest.f90 -mtune=pentiumpro -auxbase alloctest -Wsurprising
-pedantic -Wall -std=f95 -version -o alloctest.s
GNU F95 version 4.1.0 20050702 (experimental) (i686-pc-mingw32)
        compiled by GNU C version 3.4.4 (mingw special).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
alloctest.f90: In function 'charn_inc_alloc':
alloctest.f90:89: internal compiler error: in gfc_trans_deferred_array, at
fortran/trans-array.c:4009


Problem source follows:
 module alloctest_module

  implicit none

  public :: my_realloc_ptr
  public :: charn_inc_alloc

  interface my_realloc_ptr

    module procedure char_my_realloc_ptrn
    module procedure char_my_realloc_ptr24

  end interface

contains

!============================ CHAR_MY_REALLOC_PTRN =============================
!
! Reallocate space for n-character arrays
!
!===============================================================================

  subroutine char_my_realloc_ptrn(x,n,dim1)

    integer,                        intent(in) :: dim1, n
    character(len=n), dimension(:), pointer    :: x

    integer                                    :: status, old_dim1, i
    character(len=n), dimension(:), pointer    :: y
!
!   allocate the final array with the new dimensions
!
!   if (dim1 <= 0) write(*,*)'Warning: dim1 <= 0 (c_reall_n)'
    allocate (y(max(1,dim1)),stat=status)
    if (status /= 0) stop "Allocation failed"
!
!   Initialize y, then copy the old values
!
    old_dim1 = size(x,1)
    i = min0(dim1,old_dim1)
    y = " "
    y(1:i) = x(1:i)

    x => y                    ! reassign the x pointer

  end subroutine char_my_realloc_ptrn

!============================ CHAR_MY_ALLOC_PTR24===============================
!
! Allocate space for 24 character arrays
!
!===============================================================================

  subroutine char_my_realloc_ptr24(x,dim1)

    character(len=24), dimension(:), pointer    :: x
    integer,                         intent(in) :: dim1

    integer                                     :: status, old_dim1, i
    character(len=24), dimension(:), pointer    :: y
!
!   allocate the final array with the new dimensions
!
!   if (dim1 <= 0) write(*,*)'Warning: dim1 <= 0 (c_reall_24)'
    allocate (y(max(1,dim1)),stat=status)
    if (status /= 0) stop "Allocation failed"
!
!   Initialize y, then copy the old values
!
    old_dim1 = size(x,1)
    i = min0(dim1,old_dim1)
    y = " "
    y(1:i) = x(1:i)

    x => y                    ! reassign the x pointer

  end subroutine char_my_realloc_ptr24

!===================== CHARN_INC_ALLOC==========================================
!
! Increment allocation by 1 for rank 1 character(n) arrays
!
!===============================================================================

  subroutine charn_inc_alloc(char1,n,length)
    integer,                        intent(in) :: n, length
    character(len=n), dimension(:), pointer    :: char1

    call my_realloc_ptr(char1,n,length+1)

  end subroutine charn_inc_alloc

end module alloctest_module

-- 
           Summary: gfc_trans_deferred_array internal compiler error
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: w dot t dot jones at larc dot nasa dot gov
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23124