gcc/testsuite/gfortran.dg/pr89647.f90

   1 ! { dg-do compile }
   2 ! Code contributed by Ian Harvey  <ian_harvey at bigpond dot com>
   3   MODULE m1
   4     IMPLICIT NONE
   5     PUBLIC :: False
   6     PUBLIC :: True
   7   CONTAINS
   8     FUNCTION False() RESULT(b)
   9       LOGICAL :: b
  10       b = .FALSE.
  11     END FUNCTION False
  12
  13     FUNCTION True() RESULT(b)
  14       LOGICAL :: b
  15       b = .TRUE.
  16     END FUNCTION True
  17   END MODULE m1
  18
  19   MODULE m2
  20     USE m1
  21     IMPLICIT NONE
  22     TYPE, ABSTRACT :: t_parent
  23     CONTAINS
  24       PROCEDURE(False), DEFERRED, NOPASS :: Binding
  25     END TYPE t_parent
  26   CONTAINS
  27     SUBROUTINE s
  28       TYPE, EXTENDS(t_parent) :: t_extension
  29       CONTAINS
  30         PROCEDURE, NOPASS :: Binding => True
  31       END TYPE t_extension
  32     END SUBROUTINE s
  33   END MODULE m2