pr32417.f90

来自「用于进行gcc测试」· F90 代码 · 共 16 行

! 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