PR inline-asm/84742
[official-gcc.git] / gcc / testsuite / gfortran.dg / vect / pr50412.f90
blob548ee6cd9c373103550249a3bf3187d2492a4251
1 ! { dg-do compile }
3 DOUBLE PRECISION AK,AI,AAE
4 COMMON/com/AK(36),AI(4,4),AAE(8,4),ii,jj
5 DO 20 II=1,4
6 DO 21 JJ=1,4
7 AK(n)=AK(n)-AAE(I,II)*AI(II,JJ)
8 21 CONTINUE
9 20 CONTINUE
10 END