1! { dg-do compile } 2! { dg-options "-O2 -floop-nest-optimize" } 3 SUBROUTINE PREPD(ICAST,ICAS,ICASX,ICAS1,ICAS2,NDET,NM,III,IMP, 4 * CASMIN) 5 LOGICAL CASMIN 6 DIMENSION ICAST(NDET,NM),IMP(NM) 7 IF(CASMIN) THEN 8 DO K=1,NDET 9 DO L=1,NM 10 IF(L.EQ.K-1) ICAST(K,L) = 1 11 END DO 12 END DO 13 END IF 14 END SUBROUTINE 15