1C PR debug/43166 2C { dg-do compile } 3C { dg-options "-O" } 4 SUBROUTINE FOO () 5 INTEGER V1 6 COMMON // V1 7 END 8 SUBROUTINE BAR () 9 INTEGER V0,V1,V2,V3 10 COMMON // V1(4),V2(85,4),V3 11 DO V3=1,V1(1) 12 V0=V2(V3,1) 13 END DO 14 END 15