gcc/testsuite/gfortran.dg/typebound_proc_11.f03

   1 ! { dg-do compile }
   2
   3 ! Type-bound procedures
   4 ! Test that legal usage of DEFERRED is accepted.
   5
   6 MODULE testmod
   7   IMPLICIT NONE
   8
   9   ABSTRACT INTERFACE
  10     SUBROUTINE intf ()
  11     END SUBROUTINE intf
  12   END INTERFACE
  13
  14   TYPE, ABSTRACT :: abstract_type
  15   CONTAINS
  16     PROCEDURE(intf), DEFERRED, NOPASS :: p1
  17     PROCEDURE(realproc), DEFERRED, NOPASS :: p2
  18   END TYPE abstract_type
  19
  20   TYPE, EXTENDS(abstract_type) :: sub_type
  21   CONTAINS
  22     PROCEDURE, NOPASS :: p1 => realproc
  23     PROCEDURE, NOPASS :: p2 => realproc
  24   END TYPE sub_type
  25
  26 CONTAINS
  27
  28   SUBROUTINE realproc ()
  29   END SUBROUTINE realproc
  30
  31 END MODULE testmod
  32
  33 ! { dg-final { cleanup-modules "testmod" } }