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