[Bug fortran/13254] New: [gfortran] assertion failure in With: gcc version 3.5-tree-ssa 20031130 (merged 20031123)

["dann at godzilla dot ics dot uci dot edu" <gcc-bugzilla at gcc dot gnu dot org>]

mymod.f90:
      MODULE  mymod
                                                                        
      TYPE :: mymod_type                                                
        CHARACTER(32)            MYFIELD
      END TYPE                                                          
                                                                        
      TYPE (mymod_type), DIMENSION(:), ALLOCATABLE :: MYMOD_VALUE
                                                                        
      END MODULE mymod

test.f90:

SUBROUTINE MYSUB (MYARG)
  USE mymod
  K = INDEX(MYMOD_VALUE(1)%MYFIELD(1:32)," ")
  RETURN
END SUBROUTINE MYSUB



gfortran -c test.f90
test.f90: In function `mysub':

test.f90:3: fatal error: character kind=0 not available
compilation terminated.

Intel's compiler compiles the above code.

[gfortran] Assertion failure in gfc_get_symbol_decl
X-Bugzilla-Reason: CC

With: gcc version 3.5-tree-ssa 20031130 (merged 20031123)

test.f90:

SUBROUTINE MYSUB (MYARG)
  INTEGER Ipts
  REAL(8) SMYREAL(6,Ipts)
  ENTRY MYSUB_INI2 (Ipts,SMYREAL)
  RETURN
END SUBROUTINE MYSUB

gfortran -c test.f90       
f951: ../../gcc/gcc/fortran/trans-decl.c:667: gfc_get_symbol_decl: Assertion
`sym->backend_decl' failed.
test.f90: In function `mysub':

test.f90:1: internal compiler error: Aborted
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


Intel's compiler compiles the above code.

Code like this appears in SPEC2000

-- 
           Summary: [gfortran] assertion failure in With: gcc version 3.5-
                    tree-ssa 20031130 (merged 20031123)
                    mymod.f90:
                    MODULE  mymod
                    TYPE :: mymod_type
                    CHARACTER(32)            MYFIELD
                    END TYPE
                    TYPE (mymod_type), DIMENSION(:), ALLOCATABLE ::
                    MYMOD_VALUE
                    END MODULE mymod
                    test.f90:
                    SUBROUTINE MYSUB (MYARG)
                    USE mymod
                    K = INDEX(MYMOD_VALUE(1)%MYFIELD(1:32)," ")
                    RETURN
                    END SUBROUTINE MYSUB
                    gfortran -c test.f90
                    test.f90: In function `mysub':
                    test.f90:3: fatal error: character kind=0 not available
                    compilation terminated.
                    Intel's compiler compiles the above code.
                    [gfortran] Assertion failure in gfc_get_symbol_decl
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dann at godzilla dot ics dot uci dot edu
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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