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