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