2 ! Tests the fix for a further regression caused by the
3 ! fix for PR28788 and posted as PR28908. The problem was
4 ! caused by the patch preventing interface derived types
5 ! from associating with identical derived types in the
6 ! containing namespaces.
8 ! Contributed by HJ Lu <hjl@lucon.org>
14 type(domain
), POINTER :: ptr
17 TYPE(domain_ptr
) , DIMENSION( : ) , POINTER :: parents
18 TYPE(domain_ptr
) , DIMENSION( : ) , POINTER :: nests
24 recursive subroutine integrate (grid
)
27 type(domain
), POINTER :: grid
29 subroutine solve_interface (grid
)
32 end subroutine solve_interface
34 end subroutine integrate