28 lines
637 B
Fortran
28 lines
637 B
Fortran
! { dg-do compile }
|
|
! Some errors for derived type extension.
|
|
!
|
|
! Contributed by Paul Thomas <pault@gcc.gnu.org>
|
|
!
|
|
module m
|
|
use iso_c_binding
|
|
type :: date
|
|
sequence
|
|
integer :: yr, mon
|
|
integer,public :: day
|
|
end type
|
|
type, bind(c) :: dt
|
|
integer(c_int) :: yr, mon
|
|
integer(c_int) :: day
|
|
end type
|
|
end module m
|
|
|
|
use m
|
|
type, extends(date) :: datetime ! { dg-error "because it is a SEQUENCE type" }
|
|
end type ! { dg-error "Expecting END PROGRAM" }
|
|
|
|
type, extends(dt) :: dt_type ! { dg-error "because it is BIND" }
|
|
end type ! { dg-error "Expecting END PROGRAM" }
|
|
end
|
|
|
|
! { dg-final { cleanup-modules "m" } }
|