1! { dg-do compile }
2! Some errors for derived type extension.
3!
4! Contributed by Paul Thomas  <pault@gcc.gnu.org>
5!
6module m
7  use iso_c_binding
8  type :: date
9    sequence
10    integer :: yr, mon
11    integer,public :: day
12  end type
13  type, bind(c) :: dt
14    integer(c_int) :: yr, mon
15    integer(c_int) :: day
16  end type
17end module m
18
19  use m
20  type, extends(date) :: datetime ! { dg-error "because it is a SEQUENCE type" }
21  end type ! { dg-error "Expecting END PROGRAM" }
22
23  type, extends(dt) :: dt_type ! { dg-error "because it is BIND" }
24  end type ! { dg-error "Expecting END PROGRAM" }
25end
26