+
−! { dg-do compile }
+
−! { dg-options "-std=f95" }
+
−!
+
−! PR fortran/39427
+
−!
+
−! Check constructor functionality.
+
−!
+
−!
+
−module m
+
−  type t ! { dg-error "the same name as derived type" }
+
−    integer :: x
+
−  end type t
+
−  interface t
+
−    module procedure f
+
−  end interface t
+
−contains
+
−  function f() ! { dg-error "the same name as derived type" }
+
−    type(t) :: f
+
−  end function
+
−end module
+
−
+
−module m2
+
−  interface t2
+
−    module procedure f2
+
−  end interface t2
+
−  type t2 ! { dg-error "the same name as derived type" }
+
−    integer :: x2
+
−  end type t2
+
−contains
+
−  function f2() ! { dg-error "the same name as derived type" }
+
−    type(t2) :: f2
+
−  end function
+
−end module