[Bug fortran/32248] New: internal compiler error: in gfc_trans_assignment_1, at fortran/trans-expr.c:3877

[jv244 at cam dot ac dot uk]

another ICE derived from CP2K (PR 29975)

gfortran testcase.cell_types.f90
testcase.cell_types.f90: In function ‘pbc3’:
testcase.cell_types.f90:22: internal compiler error: in gfc_trans_assignment_1,
at fortran/trans-expr.c:3877
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
vondele@pcihopt1:/scratch/vondele/tmp> cat testcase.cell_types.f90
MODULE cell_types
  INTEGER, PARAMETER :: dp=KIND(0.0D0)
  TYPE cell_type
     !FM to rm
     REAL(KIND = dp)            :: unit_of_length

     REAL(KIND = dp)            :: subcells
     !FM should stay
     LOGICAL                    :: orthorhombic
     REAL(KIND = dp), DIMENSION(3,3)   :: hmat,h_inv
   END TYPE cell_type
CONTAINS
  FUNCTION pbc3(ra,rb,cell) RESULT(rab_pbc)
    REAL(KIND=dp), DIMENSION(3), INTENT(IN)  :: ra, rb
    REAL(KIND=dp), DIMENSION(3)              :: rab_pbc
    INTEGER                                  :: icell, jcell, kcell
    REAL(KIND=dp)                            :: rab2, rab2_pbc
    REAL(KIND=dp), DIMENSION(3)              :: r, ra_pbc, rab, rb_image, &
                                                rb_pbc, s2r

    rb_pbc(:) = pbc(rb(:),cell)
    rab2_pbc = HUGE(1.0_dp)
    DO icell=-periodic(1),periodic(1)
      DO jcell=-periodic(2),periodic(2)
        DO kcell=-periodic(3),periodic(3)
          r = REAL((/icell,jcell,kcell/),dp)
        END DO
      END DO
    END DO
  END FUNCTION pbc3
END MODULE


-- 
           Summary: internal compiler error: in gfc_trans_assignment_1, at
                    fortran/trans-expr.c:3877
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jv244 at cam dot ac dot uk


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