gcc/testsuite/gfortran.dg/extends_5.f03

   1 ! { dg-do compile }
   2 ! Some errors for derived type extension.
   3 !
   4 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
   5 !
   6 module 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
  17 end 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" }
  25 end
  26
  27 ! { dg-final { cleanup-modules "m" } }