[Bug middle-end/50260] New: internal compiler error: Segmentation fault at ../../gcc/gcc/tree-ssa-live.c:88

["Joost.VandeVondele at pci dot uzh.ch" <gcc-bugzilla at gcc dot gnu dot org>]

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

             Bug #: 50260
           Summary: internal compiler error: Segmentation fault  at
                    ../../gcc/gcc/tree-ssa-live.c:88
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: middle-end
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: Joost.VandeVondele@pci.uzh.ch


this started failing in the last 48h or so, with the following stack trace

Program received signal SIGSEGV, Segmentation fault.
var_map_base_init (map=0x16bb070) at ../../gcc/gcc/tree-ssa-live.c:88
88            if (!ann->base_var_processed)
(gdb) bt
#0  var_map_base_init (map=0x16bb070) at ../../gcc/gcc/tree-ssa-live.c:88
#1  0x00000000009dd3f2 in coalesce_ssa_name () at
../../gcc/gcc/tree-ssa-coalesce.c:1397
#2  0x00000000009909a9 in remove_ssa_form (sa=0x14adce0) at
../../gcc/gcc/tree-outof-ssa.c:909
#3  rewrite_out_of_ssa (sa=0x14adce0) at ../../gcc/gcc/tree-outof-ssa.c:1143
#4  0x000000000066173b in gimple_expand_cfg () at
../../gcc/gcc/cfgexpand.c:4152
#5  0x000000000088a3b7 in execute_one_pass (pass=0x149e7e0) at
../../gcc/gcc/passes.c:2063
#6  0x000000000088a725 in execute_pass_list (pass=0x149e7e0) at
../../gcc/gcc/passes.c:2118
#7  0x000000000098e01e in tree_rest_of_compilation (fndecl=0x7ffff5b49300) at
../../gcc/gcc/tree-optimize.c:420
#8  0x00000000006812c6 in cgraph_expand_function (node=0x7ffff7e7fea0) at
../../gcc/gcc/cgraphunit.c:1797
#9  0x000000000068300b in cgraph_expand_all_functions () at
../../gcc/gcc/cgraphunit.c:1856
#10 cgraph_optimize () at ../../gcc/gcc/cgraphunit.c:2126
#11 0x000000000068369a in cgraph_finalize_compilation_unit () at
../../gcc/gcc/cgraphunit.c:1310
#12 0x000000000083e8fd in write_global_declarations () at
../../gcc/gcc/langhooks.c:303
#13 0x000000000092bf22 in compile_file (argc=15, argv=0x7fffffffdb38) at
../../gcc/gcc/toplev.c:564
#14 do_compile (argc=15, argv=0x7fffffffdb38) at ../../gcc/gcc/toplev.c:1886
#15 toplev_main (argc=15, argv=0x7fffffffdb38) at ../../gcc/gcc/toplev.c:1962
#16 0x00007ffff63c5b7d in __libc_start_main () from /lib64/libc.so.6
#17 0x000000000050317d in _start () at ../sysdeps/x86_64/elf/start.S:113


testcase:

MODULE cp_parser_methods
  INTEGER, PARAMETER :: default_string_length=80
  INTEGER, PARAMETER :: default_path_length=250
  TYPE ilist_type
     LOGICAL                              :: in_use
  END TYPE ilist_type
  TYPE cp_parser_type
     CHARACTER(LEN=default_path_length)             :: ifn
     INTEGER                                        :: icol,icol1,icol2
     TYPE(ilist_type), POINTER                      :: ilist
  END TYPE cp_parser_type
  TYPE cp_error_type
  END TYPE cp_error_type
CONTAINS
  FUNCTION cts(i) RESULT(res)
    CHARACTER(len=6)                         :: res
  END FUNCTION cts
  FUNCTION parser_location(parser,error) RESULT(res)
    TYPE(cp_parser_type), POINTER            :: parser
    TYPE(cp_error_type), INTENT(inout)       :: error
    CHARACTER(len=default_path_length+default_string_length)       :: res
    LOGICAL                                  :: failure
    IF (.NOT. failure) THEN
       res="file:'"//TRIM(parser%ifn)//"' line:"//cts(parser%icol)
    END IF
  END FUNCTION parser_location
  SUBROUTINE parser_get_integer(parser,at_end, error)
    TYPE(cp_parser_type), POINTER            :: parser
    TYPE(cp_error_type), INTENT(inout)       :: error
    LOGICAL                                  :: failure, my_at_end
    IF (.NOT.failure) THEN
       IF (.NOT.parser%ilist%in_use) THEN
          CALL cp_assert("A"// TRIM(parser_location(parser,error)))
       END IF
    END IF
  END SUBROUTINE parser_get_integer
  SUBROUTINE parser_get_string(parser,at_end,error)
    TYPE(cp_parser_type), POINTER            :: parser
    LOGICAL, INTENT(out), OPTIONAL           :: at_end
    TYPE(cp_error_type), INTENT(inout)       :: error
    LOGICAL                                  :: failure, my_at_end
    IF (.NOT.failure) THEN
       IF (PRESENT(at_end)) THEN
          CALL cp_assert("s"//TRIM(parser_location(parser,error)))
       END IF
    END IF
  END SUBROUTINE parser_get_string
END MODULE cp_parser_methods

fails at 
gfortran -O3 bug.f90

compiles at
gfortran -O2 bug.f90