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

            Bug ID: 59016
           Summary: f951: internal compiler error: Segmentation fault
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: Joost.VandeVondele at mat dot ethz.ch

gcc version 4.9.0 20131106 (experimental) [trunk revision 204433] (GCC)  yields
the following internal compiler error:

f951: internal compiler error: Segmentation fault
0x9fee4f crash_signal
    ../../gcc/gcc/toplev.c:334
0x5ed8f9 gfc_sym_get_dummy_args(gfc_symbol*)
    ../../gcc/gcc/fortran/symbol.c:4572
0x5c73e1 resolve_fl_procedure
    ../../gcc/gcc/fortran/resolve.c:10971
0x5c73e1 resolve_symbol
    ../../gcc/gcc/fortran/resolve.c:13301
0x5e6233 do_traverse_symtree
    ../../gcc/gcc/fortran/symbol.c:3571
0x5d1477 resolve_types
    ../../gcc/gcc/fortran/resolve.c:14475
0x5c5aa3 gfc_resolve
    ../../gcc/gcc/fortran/resolve.c:14572
0x5c5aa3 gfc_resolve(gfc_namespace*)
    ../../gcc/gcc/fortran/resolve.c:14560
0x5bb30a gfc_parse_file()
    ../../gcc/gcc/fortran/parse.c:4672
0x5f9c65 gfc_be_parse_file
    ../../gcc/gcc/fortran/f95-lang.c:189
Please submit a full bug report,

when compiling the invalid code below with

gfortran -c  -cpp bug.f90

> cat bug.f90
MODULE atomic_kind_types
  PUBLIC :: atomic_kind_type,&
            dft_plus_u_type
CONTAINS
  SUBROUTINE get_atomic_kind_set(atomic_kind_set,maxatom,maxcgf,&
       zetsoft_max,basis_set_id)
       CALL stop_program(routineN,moduleN,__LINE__,&
            "The pointer atomic_kind_set is not associated")
  END SUBROUTINE get_atomic_kind_set
  PURE FUNCTION is_hydrogen(atomic_kind) RESULT(res)
    TYPE(atomic_kind_type), POINTER          :: atomic_kind
  END FUNCTION is_hydrogen
END MODULE atomic_kind_types

It appears to be some corruption of some kind, since just compiling with
gfortran -c bug.f90 does not ICE, instead contains some garbage string in the
error message:

1
Error: Procedure '��XS0' in generic interface 'atomic_kind_type' at (1) is
neither function nor subroutine

Running under valgrind might help.

Reply via email to