2 ! Test for import in interfaces PR fortran/30922
4 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
12 integer, parameter :: n = 20
15 integer function func1(param)
17 type(my_type) :: param(n)
20 integer function func2(param)
22 type(my_type), value :: param
31 integer function func3(param)
33 type(my_type), dimension (n) :: param
36 integer function func4(param)
38 type(my_type), dimension (n) :: param
43 end module test_import