1! PR tree-opt/32417
2! this used to crash while running IV-opts
3! aff_combination_add_elt was not ready to handle pointers correctly
4
5SUBROUTINE ONEINTS()
6  COMMON /INFOA / NAT,NUM
7  DIMENSION TINT(NUM*NUM,NAT,3,3,3),TINTM(NUM,NUM,NAT,3,3,3)
8
9  CALL TINTS(IC)
10  DO ID=1,3
11    DO IC=1,NAT
12      TINTM(J,I,IC,IAN,INU,ID) = TINT((I-1)*NUM+J,IC,IAN,INU,ID)
13    ENDDO
14  ENDDO
15END
16