summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/debug/pr43166.f
blob: a3146150b9970e2a237fe75ed0442d384d603935 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
C PR debug/43166
C { dg-do compile }
C { dg-options "-O" }
      SUBROUTINE FOO ()
      INTEGER V1
      COMMON // V1
      END
      SUBROUTINE BAR ()
      INTEGER V0,V1,V2,V3
      COMMON // V1(4),V2(85,4),V3
      DO V3=1,V1(1)
      V0=V2(V3,1)
      END DO
      END