blob: a61b63a0fe5644c78cbb491d5e30da9e2706d9d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { 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 "Cannot convert" }
end subroutine
end module
|