25   subroutine foo(arg)  argument
26     integer :: arg(..)  local
30     if (any(lbound(arg) /= [1, 1])) STOP 1
31     if (any(id(lbound(arg)) /= [1, 1])) STOP 2
33     write(buffer,*) lbound(arg)
36     write(buffer,*) id(lbound(arg))
41     if (any(ubound(arg) /= [3, 8])) STOP 5
42     if (any(id(ubound(arg)) /= [3, 8])) STOP 6
44     write(buffer,*) ubound(arg)
47     write(buffer,*) id(ubound(arg))
52     if (any(shape(arg) /= [3, 8])) STOP 9
53     if (any(id(shape(arg)) /= [3, 8])) STOP 10
55     write(buffer,*) shape(arg)
58     write(buffer,*) id(shape(arg))
62   subroutine bar(arg)  argument
63     integer, allocatable :: arg(:,:)  local
67     if (any(lbound(arg) /= [2, -2])) STOP 13
68     if (any(id(lbound(arg)) /= [2, -2])) STOP 14
70     write(buffer,*) lbound(arg)
73     write(buffer,*) id(lbound(arg))
78     if (any(ubound(arg) /= [4, 5])) STOP 17
79     if (any(id(ubound(arg)) /= [4, 5])) STOP 18
81     write(buffer,*) ubound(arg)
84     write(buffer,*) id(ubound(arg))
89     if (any(shape(arg) /= [3, 8])) STOP 21
90     if (any(id(shape(arg)) /= [3, 8])) STOP 22
92     write(buffer,*) shape(arg)
95     write(buffer,*) id(shape(arg))
99   subroutine baz(arg)  argument
100     integer, pointer :: arg(..)  local
104     if (any(lbound(arg) /= [2, -2])) STOP 25
105     if (any(id(lbound(arg)) /= [2, -2])) STOP 26
107     write(buffer,*) lbound(arg)
110     write(buffer,*) id(lbound(arg))
115     if (any(ubound(arg) /= [4, 5])) STOP 29
116     if (any(id(ubound(arg)) /= [4, 5])) STOP 30
118     write(buffer,*) ubound(arg)
121     write(buffer,*) id(ubound(arg))
126     if (any(shape(arg) /= [3, 8])) STOP 33
127     if (any(id(shape(arg)) /= [3, 8])) STOP 34
129     write(buffer,*) shape(arg)
132     write(buffer,*) id(shape(arg))
136   elemental function id(arg)
137     integer, intent(in) :: arg  local
140     id = arg