! { 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