10   subroutine s1  subroutine
12     integer(kind=kind(m1j1)) :: t_s1m1j1  argument
13     integer(kind=kind(m1s1j1)) :: t_s1j1 ! implicitly typed in s1  argument
14     integer :: m1j1, m1s1j1, m1s1j2, m1s1j4  argument
21       integer(kind=kind(m1s1j3)) :: t_m1s1j3 ! m1s1j3 implicitly typed in s1  argument
28       !ERROR: Forward reference to 'm1s1j3' is not allowed in the same specification part  argument
50   subroutine s1  subroutine
52     integer(kind=kind(m2j1)) :: t_s1m2j1  argument
54     integer(kind=kind(m2s1j1)) :: t_s1j1  argument
55     integer :: m2j1, m2s1j1, m2s1j2, m2s1j4  argument
69       !ERROR: No explicit type declared for 'm2s1j3'  argument