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
8module 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
15contains
16  subroutine cfi()
17    type(cfmde), pointer :: cfd
18    cfd=cfmde()                  ! { dg-error "Can't convert" }
19  end subroutine
20end module
21
22! { dg-final { cleanup-modules "cf" } }
23