92     pure subroutine subr(dummy1a, dummy2a, dummy3a, dummy4a)  subroutine
93       real, target :: local1a
94       type(t1(0)) :: x1a
95       type(t2(0)) :: x2a
96       type(t3(0)) :: x3a
97       type(t4(0)) :: x4a
98       real, intent(in), target :: dummy1a
99       real, intent(inout), target :: dummy2a
100       real, pointer :: dummy3a
101       real, intent(inout), target :: dummy4a[*]
142     pure subroutine subr(dummy3a)  subroutine
148     end subroutine  argument