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