https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62695

            Bug ID: 62695
           Summary: [5.0 Regression] internal compiler error: in
                    get_constraint_for_component_ref, at
                    tree-ssa-structalias.c:3189
           Product: gcc
           Version: 5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: middle-end
          Assignee: unassigned at gcc dot gnu.org
          Reporter: Joost.VandeVondele at mat dot ethz.ch

A recent trunk regression between good: r214776 and bad r214808, suspect
r214795

> gfortran  -c -fipa-pta -O1  bug.f90
bug.f90:23:0: 

   END SUBROUTINE dbcsr_mp_make_env
 ^
internal compiler error: in get_constraint_for_component_ref, at
tree-ssa-structalias.c:3189
0xc537eb get_constraint_for_component_ref
    ../../gcc/gcc/tree-ssa-structalias.c:3189
0xc537eb get_constraint_for_1
    ../../gcc/gcc/tree-ssa-structalias.c:3454
0xc547f2 get_constraint_for_address_of
    ../../gcc/gcc/tree-ssa-structalias.c:3325
0xc5330f get_constraint_for_1
    ../../gcc/gcc/tree-ssa-structalias.c:3393
0xc547f2 get_constraint_for_address_of
    ../../gcc/gcc/tree-ssa-structalias.c:3325
0xc59d09 find_func_clobbers
    ../../gcc/gcc/tree-ssa-structalias.c:5042
0xc59d09 ipa_pta_execute
    ../../gcc/gcc/tree-ssa-structalias.c:7180

> cat bug.f90
MODULE dbcsr_dist_operations
  TYPE dbcsr_mp_obj
  END TYPE dbcsr_mp_obj
  INTERFACE
    SUBROUTINE dbcsr_mp_new(mp_env, pgrid, mp_group, mynode, numnodes, myprow,&
         mypcol)
      IMPORT
      TYPE(dbcsr_mp_obj), INTENT(OUT)          :: mp_env
      INTEGER, DIMENSION(0:, 0:), INTENT(IN)   :: pgrid
    END SUBROUTINE dbcsr_mp_new
  END INTERFACE
CONTAINS
  SUBROUTINE dbcsr_mp_make_env (mp_env, mp_group, &
       nprocs, pgrid_dims, error)
    TYPE(dbcsr_mp_obj), INTENT(OUT)          :: mp_env
      OPTIONAL                               :: pgrid_dims
    INTEGER                                  :: error_handle, group, mynode, &
                                                numnodes, pcol, prow
    INTEGER, ALLOCATABLE, DIMENSION(:, :)    :: pgrid
    INTEGER, DIMENSION(2)                    :: coord, myploc, npdims
    CALL dbcsr_mp_new (mp_env, pgrid, group, mynode, numnodes,&
         myprow=myploc(1), mypcol=myploc(2))
  END SUBROUTINE dbcsr_mp_make_env
END MODULE dbcsr_dist_operations

Reply via email to