1c { dg-do compile }
2      subroutine geo2()
3      implicit none
4
5      integer ms,n,ne(2)
6
7      ne(1) = 1
8      ne(2) = 2
9      ms = 1
10
11      call call_me(ne(1)*ne(1))
12
13      n = ne(ms)
14      end
15