Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! Some errors for derived type extension.

! Some errors for derived type extension.

!

!

! Contributed by Paul Thomas  

! Contributed by Paul Thomas  

!

!

module m

module m

  use iso_c_binding

  use iso_c_binding

  type :: date

  type :: date

    sequence

    sequence

    integer :: yr, mon

    integer :: yr, mon

    integer,public :: day

    integer,public :: day

  end type

  end type

  type, bind(c) :: dt

  type, bind(c) :: dt

    integer(c_int) :: yr, mon

    integer(c_int) :: yr, mon

    integer(c_int) :: day

    integer(c_int) :: day

  end type

  end type

end module m

end module m

  use m

  use m

  type, extends(date) :: datetime ! { dg-error "because it is a SEQUENCE type" }

  type, extends(date) :: datetime ! { dg-error "because it is a SEQUENCE type" }

  end type ! { dg-error "Expecting END PROGRAM" }

  end type ! { dg-error "Expecting END PROGRAM" }

  type, extends(dt) :: dt_type ! { dg-error "because it is BIND" }

  type, extends(dt) :: dt_type ! { dg-error "because it is BIND" }

  end type ! { dg-error "Expecting END PROGRAM" }

  end type ! { dg-error "Expecting END PROGRAM" }

end

end

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

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