Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.dg / g77 / 13060.f
blob4c1b3e7236322ccd1ea58495e0958ebd172351c7
1 c { dg-do compile }
2 subroutine geo2()
3 implicit none
5 integer ms,n,ne(2)
7 ne(1) = 1
8 ne(2) = 2
9 ms = 1
11 call call_me(ne(1)*ne(1))
13 n = ne(ms)
14 end