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