! { 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 ICECOMMON/TRUPAR/DR(10),V(10,10)DO 110I=1,NDIR110DR(I)=V(I,JDIR)END SUBROUTINE TRUSRC(LEAVE)IMPLICIT DOUBLE PRECISION(A-H,O-Z)COMMON/TRUPAR/DX(10),V(10,10)END