! { dg-do compile }
! { dg-options "-O3 -ffast-math -funroll-loops -w" }

      SUBROUTINE TRUDGE(KDIR)
! There is a type mismatch here for TRUPAR which caused an ICE
      COMMON /TRUPAR/ DR(10),V(10,10)
      DO 110 I=1,NDIR
  110 DR(I)=V(I,JDIR)
      END
      SUBROUTINE TRUSRC(LEAVE)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      COMMON /TRUPAR/ DX(10),V(10,10)
      END