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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do compile }
!
! PR 58355: [4.7/4.8/4.9 Regression] [F03] ICE with TYPE, EXTENDS before parent TYPE defined
!
! Contributed by Andrew Benson <abensonca@gmail.com>

module ct
  public :: t1

  type, extends(t1) :: t2   ! { dg-error "has not been previously defined" }

  type :: t1
  end type
end

! { dg-final { cleanup-modules "ct" } }