gcc/testsuite/gfortran.dg/constructor_9.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall" }
   3 !
   4 ! PR 58471: [4.8/4.9 Regression] ICE on invalid with missing type constructor and -Wall
   5 !
   6 ! Contributed by Andrew Benson <abensonca@gmail.com>
   7
   8 module cf
   9   implicit none
  10   type :: cfmde
  11   end type
  12   interface cfmde
  13      module procedure mdedc   ! { dg-error "is neither function nor subroutine" }
  14   end interface
  15 contains
  16   subroutine cfi()
  17     type(cfmde), pointer :: cfd
  18     cfd=cfmde()                  ! { dg-error "Can't convert" }
  19   end subroutine
  20 end module