gcc/testsuite/gfortran.dg/g77/13060.f

   1 c { 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