1! { dg-do compile }
2!
3! PR fortran/39427
4!
5! Check constructor functionality.
6!
7!
8module m
9  type t
10    integer :: x
11  end type t
12  interface t
13    module procedure f
14  end interface t
15contains
16  function f()
17    type(t) :: f
18  end function
19end module
20
21module m2
22  interface t2
23    module procedure f2
24  end interface t2
25  type t2
26    integer :: x2
27  end type t2
28contains
29  function f2()
30    type(t2) :: f2
31  end function
32end module
33