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