gcc-4.9/gcc/testsuite/gfortran.dg/constructor_9.f90


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" } }