1! { dg-do compile }
2!
3! PR 58355: [4.7/4.8/4.9 Regression] [F03] ICE with TYPE, EXTENDS before parent TYPE defined
4!
5! Contributed by Andrew Benson <abensonca@gmail.com>
6
7module ct
8  public :: t1
9
10  type, extends(t1) :: t2   ! { dg-error "has not been previously defined" }
11
12  type :: t1
13  end type
14end
15