[Bug fortran/41062] internal compiler error

["dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #3 from dominiq at lps dot ens dot fr  2009-08-14 00:14 -------
Reduced test case:

module SysKinds

  INTEGER, PARAMETER :: DefaultInteger = kind (1)
  INTEGER (DefaultInteger), PARAMETER :: ASCIICharacterKind = KIND ("A")
  integer(DefaultInteger), parameter :: SmallInteger = selected_int_kind (4)

end module SysKinds

module Parser

   use SysKinds

   interface PutALine
     module procedure Line_from_string
   end interface

   integer (SmallInteger), parameter :: LINE_LENGTH = 200

   type, public :: TStringBlock
     private
     character (LINE_LENGTH, ASCIICharacterKind) :: theLine = " "
     integer (SmallInteger) :: CurrentIndex, LastIndex = 0, NextIndex
   end type TStringBlock

contains

   subroutine Line_from_string

   end subroutine Line_from_string

end module Parser

module CmndType

  use SysKinds
  use Parser, only : PutALine, TstringBlock

  implicit none

  type, public :: Tcommand
    type (TstringBlock) :: commandLine
  end type Tcommand

contains

  subroutine Dump_cmd (this, tag)

    type (TCommand), intent (IN) :: this
    character (*, ASCIICharacterKind), intent (IN), optional :: tag

    call PutALine ()
  contains

    subroutine PutALine (user_Line)

      character (*, ASCIICharacterKind), intent (IN), optional :: user_Line

    end subroutine PutALine

  end subroutine Dump_cmd

end module CmndType

gives an ICE with trunk and 4.4.1:

[ibook-dhum] bug/bug7% gfc cmndtypeM_red.f90
cmndtypeM_red.f90:36:0: internal compiler error: in gfc_trans_use_stmts, at
fortran/trans-decl.c:3438
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.

compiles with 4.3.4, hence a regression.


-- 


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