gcc/testsuite/gfortran.dg/typebound_proc_9.f03

   1 ! { dg-do compile }
   2
   3 ! Type-bound procedures
   4 ! Test for basic parsing errors for invalid DEFERRED.
   5
   6 MODULE testmod
   7   IMPLICIT NONE
   8
   9   ABSTRACT INTERFACE
  10     SUBROUTINE intf ()
  11     END SUBROUTINE intf
  12   END INTERFACE
  13
  14   TYPE not_abstract
  15   CONTAINS
  16     PROCEDURE(intf), DEFERRED, NOPASS :: proc ! { dg-error "is not ABSTRACT" }
  17   END TYPE not_abstract
  18
  19   TYPE, ABSTRACT :: abstract_type
  20   CONTAINS
  21     PROCEDURE, DEFERRED :: p2 ! { dg-error "Interface must be specified" }
  22     PROCEDURE(intf), NOPASS :: p3 ! { dg-error "should be declared DEFERRED" }
  23     PROCEDURE(intf), DEFERRED, NON_OVERRIDABLE :: p4 ! { dg-error "can't both" }
  24     PROCEDURE(unknown), DEFERRED :: p5 ! { dg-error "has no IMPLICIT|module procedure" }
  25     PROCEDURE(intf), DEFERRED, DEFERRED :: p6 ! { dg-error "Duplicate DEFERRED" }
  26     PROCEDURE(intf), DEFERRED :: p6 => proc ! { dg-error "is invalid for DEFERRED" }
  27     PROCEDURE(), DEFERRED :: p7 ! { dg-error "Interface-name expected" }
  28     PROCEDURE(intf, DEFERRED) :: p8 ! { dg-error "'\\)' expected" }
  29   END TYPE abstract_type
  30
  31 END MODULE testmod
  32
  33 ! { dg-final { cleanup-modules "testmod" } }