2 ! Tests the fix for PR36366 a regression in which the order of USE statements
3 ! in 'test2' would cause the result of 'test1' not to have a reference to
4 ! the derived type 'inner'.
6 ! Contributed by Jakub Jelinek <jakub@gcc.gnu.org>
11 INTEGER, POINTER :: i(:)
15 TYPE(inner
), POINTER :: inr(:)
25 TYPE(outer
), POINTER :: test1
38 TYPE(outer
), INTENT(INOUT
) :: a
46 TYPE(outer
), INTENT(IN
) :: a