gcc/testsuite/gfortran.fortran-torture/compile/pr32417.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! PR tree-opt/32417
! this used to crash while running IV-opts
! aff_combination_add_elt was not ready to handle pointers correctly

SUBROUTINE ONEINTS()
  COMMON /INFOA / NAT,NUM
  DIMENSION TINT(NUM*NUM,NAT,3,3,3),TINTM(NUM,NUM,NAT,3,3,3)

  CALL TINTS(IC)
  DO ID=1,3
    DO IC=1,NAT
      TINTM(J,I,IC,IAN,INU,ID) = TINT((I-1)*NUM+J,IC,IAN,INU,ID)
    ENDDO
  ENDDO
END