2 ! { dg-options "-std=f2003" }
4 ! PR fortran/48112 (module_m)
5 ! PR fortran/48279 (sidl_string_array, s_Hard)
7 ! Contributed by mhp77@gmx.at (module_m)
8 ! and Adrian Prantl (sidl_string_array, s_Hard)
13 function test1( ) result( test
)
21 module sidl_string_array
23 end type sidl_string_1d
29 subroutine setg1_p(array
, index
, val
)
30 type(sidl_string_1d
), intent(inout
) :: array
31 end subroutine setg1_p
32 end module sidl_string_array
39 interface set_d_interface
41 interface get_d_string
42 module procedure get_d_string_p
44 contains ! Derived type member access functions
45 type(sidl_string_1d
) function get_d_string_p(s
)
46 type(s_Hard_t
), intent(in
) :: s
47 end function get_d_string_p
48 subroutine set_d_objectArray_p(s
, d_objectArray
)
49 end subroutine set_d_objectArray_p
52 subroutine initHard(h
, ex
)
54 type(s_Hard_t
), intent(inout
) :: h
55 call set(get_d_string(h
), 0, 'Three') ! { dg-error "There is no specific subroutine for the generic" }
56 end subroutine initHard
70 integer, intent(in
) :: a
73 integer function get1 (s
) ! { dg-error "Fortran 2008: Internal procedure .get1. in generic interface .get." }