path: root/gcc/testsuite/g77.f-torture/compile/13060.f

      subroutine geo2()
      implicit none

      integer ms,n,ne(2)

      ne(1) = 1
      ne(2) = 2
      ms = 1

      call call_me(ne(1)*ne(1))

      n = ne(ms)
      end