5     real :: x  component
9     real :: x  component
12     real :: x  component
15     real, private :: x  component
18   subroutine s1a(x)  argument
19     type(t1), intent(in) :: x  local
21   subroutine s2a(x)  argument
22     type(t2), intent(in) :: x  local
24   subroutine s3a(x)  argument
25     type(t3), intent(in) :: x  local
27   subroutine s4a(x)  argument
28     type(t4), intent(in) :: x  local
41     class(t10), intent(in) :: x, y  local
56     integer :: x ! distinct type  component
60     real :: x  component
63     real :: x  component
66     real :: x ! not PRIVATE  component
82   subroutine s1b(x)  argument
83     type(t1), intent(in) :: x  local
85   subroutine s2b(x)  argument
86     type(t2), intent(in) :: x  local
88   subroutine s3b(x)  argument
89     type(t3), intent(in) :: x  local
91   subroutine s4b(x)  argument
92     type(t4), intent(in) :: x  local