1! { dg-do compile }
2! { dg-options "-O3 -ffast-math -funroll-loops -w" }
3
4      SUBROUTINE TRUDGE(KDIR)
5! There is a type mismatch here for TRUPAR which caused an ICE
6      COMMON /TRUPAR/ DR(10),V(10,10)
7      DO 110 I=1,NDIR
8  110 DR(I)=V(I,JDIR)
9      END
10      SUBROUTINE TRUSRC(LEAVE)
11      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12      COMMON /TRUPAR/ DX(10),V(10,10)
13      END
14
15