2 ! Tests the fix for PR28959 in which interface derived types were
3 ! not always being associated.
5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
7 module derived_type_mod
10 integer, pointer :: v1(:)=>null()
14 end module derived_type_mod
20 subroutine cdalv(m, v, i, desc_a, info, flag)
22 Integer, intent(in) :: m,i, v(:)
23 integer, intent(in), optional :: flag
24 integer, intent(out) :: info
25 Type(foo_dtype), intent(out) :: desc_a
33 subroutine foo_bar(a,p,info)
37 type(foo_dtype), intent(in) :: a
38 type(foo_dtype), intent(inout) :: p
39 integer, intent(out) :: info
51 subroutine inner_sub(info)
55 integer, intent(out) :: info
57 integer :: i, nt,iv(10)
62 call foo_d_sub(nt,iv,i,p,info,flag=1)
67 end subroutine inner_sub
71 end subroutine foo_bar
72 ! { dg-final { cleanup-modules "derived_type_mod tools" } }