11   subroutine foo (c, d, e, f, g, h, i, j, k, n)  subroutine
13     integer :: n  local
14     character (len = *) :: c  local
15     character (len = n) :: d  local
16     integer, dimension (2, 3:5, n) :: e  local
17     integer, dimension (2, 3:n, n) :: f  local
18     character (len = *), dimension (5, 3:n) :: g  local
19     character (len = n), dimension (5, 3:n) :: h  local
20     real, dimension (:, :, :) :: i  local
21     double precision, dimension (3:, 5:, 7:) :: j  local
22     integer, dimension (:, :, :) :: k  local
23     logical :: l  local
24     integer :: p, q, r  local
25     character (len = n) :: s  local
26     integer, dimension (2, 3:5, n) :: t  local
27     integer, dimension (2, 3:n, n) :: u  local
28     character (len = n), dimension (5, 3:n) :: v  local
29     character (len = 2 * n + 24) :: w  local
30     integer :: x  local
31     character (len = 1) :: y  local
88 103 continue
94 104 continue
98 105 continue