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