Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.dg / g77 / 19990502-1.f
blobdde2769f40a6a14cbf3cdb3198a11b9f057622e7
1 c { dg-do compile }
2 SUBROUTINE G(IGAMS,IWRK,NADC,NCellsInY)
3 INTEGER(kind=2) IGAMS(2,NADC)
4 in = 1
5 do while (in.le.nadc.and.IGAMS(2,in).le.in)
6 enddo
7 END