2 ! { dg-options "-O3 -ffast-math -funroll-loops -w" }
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)
10 SUBROUTINE TRUSRC(LEAVE
)
11 IMPLICIT DOUBLE PRECISION (A
-H
,O
-Z
)
12 COMMON /TRUPAR
/ DX(10),V(10,10)
