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