gcc/testsuite/gfortran.dg/constructor_4.f90

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