1! PR tree-optimization/46259 2! { dg-do compile } 3! { dg-options "-O3" } 4 SUBROUTINE RDSTFR(FRGMNT,IFRAG,PROVEC,FOCKMA, 5 * MXBF,MXMO,MXMO2,NTMOF) 6 PARAMETER (MXPT=100, MXFRG=50, MXFGPT=MXPT*MXFRG) 7 CHARACTER*8 WORD,MNAME,PNAME,RNAME 8 COMMON /FRGSTD/ CORD(3,MXPT),PCORD(3,MXPT),POLT(9,MXPT), 9 * INLPR(4*MXPT),IKFR(MXPT),IKLR(MXPT), 10 * MNAME(MXPT),PNAME(MXPT),RNAME(MXPT) 11 DO 10 I=1,MXPT 12 INLPR(4*(I-1)+1)=0 13 INLPR(4*(I-1)+2)=0 14 INLPR(4*(I-1)+3)=0 15 INLPR(4*(I-1)+4)=0 16 IKLR(I)=0 17 RNAME(I)=' ' 18 10 CONTINUE 19 END 20