[Bug fortran/48352] New: [4.7 Regression] segfault in fortran/frontend-passes.c

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

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

           Summary: [4.7 Regression] segfault in fortran/frontend-passes.c
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: Joost.VandeVondele@pci.uzh.ch


The following testcase started failing a couple of days ago:

MODULE cp_dbcsr_types
  TYPE cp_dbcsr_p_type
  END TYPE cp_dbcsr_p_type
CONTAINS
SUBROUTINE ep_qs_set(ep_qs_env, dH_coeffs_ptr, dS_coeffs_ptr, error)
    TYPE(cp_dbcsr_p_type), DIMENSION(:), &
      OPTIONAL, POINTER                      :: dH_coeffs_ptr, dS_coeffs_ptr
              DO i=1,MIN(SIZE(dS_coeffs_ptr),SIZE(dS_coeffs_ptr))
              END DO
END SUBROUTINE ep_qs_set
END MODULE

with the following segfault. Needs gfortran -O1.

Program received signal SIGSEGV, Segmentation fault.
gfc_expr_walker (e=0x18, exprfn=0x5bd5b0 <cfe_expr_0>, data=0x0) at
../../gcc/gcc/fortran/frontend-passes.c:741
741       while (*e)
(gdb) bt
#0  gfc_expr_walker (e=0x18, exprfn=0x5bd5b0 <cfe_expr_0>, data=0x0) at
../../gcc/gcc/fortran/frontend-passes.c:741
#1  0x00000000005bdabc in gfc_code_walker (c=0x15082d0, codefn=0x5bc9a0
<cfe_code>, exprfn=0x5bd5b0 <cfe_expr_0>, data=0x0)
    at ../../gcc/gcc/fortran/frontend-passes.c:1039
#2  0x00000000005be73b in optimize_namespace (ns=0x1507ba0) at
../../gcc/gcc/fortran/frontend-passes.c:338
#3  0x00000000005be768 in optimize_namespace (ns=0x1507ba0) at
../../gcc/gcc/fortran/frontend-passes.c:342
#4  0x00000000005be7b3 in gfc_run_passes (ns=0x1503d40) at
../../gcc/gcc/fortran/frontend-passes.c:69
#5  0x000000000052aee8 in gfc_parse_file () at
../../gcc/gcc/fortran/parse.c:4368
#6  0x0000000000564616 in gfc_be_parse_file () at
../../gcc/gcc/fortran/f95-lang.c:250
#7  0x000000000086fa5c in compile_file (argc=15, argv=0x7fffffffdc88) at
../../gcc/gcc/toplev.c:579
#8  do_compile (argc=15, argv=0x7fffffffdc88) at ../../gcc/gcc/toplev.c:1900
#9  toplev_main (argc=15, argv=0x7fffffffdc88) at ../../gcc/gcc/toplev.c:1963
#10 0x00007ffff661cb7d in __libc_start_main () from /lib64/libc.so.6
#11 0x00000000004c4e49 in _start () at ../sysdeps/x86_64/elf/start.S:113