pr32417.f90

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

F90
16
字号
! PR tree-opt/32417! this used to crash while running IV-opts! aff_combination_add_elt was not ready to handle pointers correctlySUBROUTINE 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  ENDDOEND

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?