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