2 ! Tests the fix for PR33945, the host association of overloaded_type_s
3 ! would be incorrectly blocked by the use associated overloaded_type.
5 ! Contributed by Jonathan Hogg <J.Hogg@rl.ac.uk>
11 double precision :: part
14 interface overloaded_sub
15 module procedure overloaded_sub_d
19 subroutine overloaded_sub_d(otype
)
20 type(overloaded_type
), intent(in
) :: otype
22 print *, "d type = ", otype
%part
33 interface overloaded_sub
34 module procedure overloaded_sub_s
38 subroutine overloaded_sub_s(otype
)
39 type(overloaded_type
), intent(in
) :: otype
41 print *, "s type = ", otype
%part
46 use stype
, overloaded_type_s
=> overloaded_type
47 use dtype
, overloaded_type_d
=> overloaded_type
50 type(overloaded_type_s
) :: sval
51 type(overloaded_type_d
) :: dval
59 subroutine fred(sval
, dval
)
62 type(overloaded_type_s
), intent(in
) :: sval
! This caused an error
63 type(overloaded_type_d
), intent(in
) :: dval
65 call overloaded_sub(sval
)
66 call overloaded_sub(dval
)