gcc/testsuite/gfortran.dg/class_32.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 45827: [4.6 Regression] [OOP] mio_component_ref(): Component not found
   4 !
   5 ! Contributed by Daniel Franke <dfranke@gcc.gnu.org>
   6
   7 MODULE m
   8
   9   TYPE, ABSTRACT :: t
  10     PRIVATE
  11     INTEGER   :: n
  12   CONTAINS
  13     PROCEDURE :: get
  14   END TYPE
  15
  16   ABSTRACT INTERFACE
  17     SUBROUTINE create(this)
  18       IMPORT t
  19       CLASS(t) :: this
  20     END SUBROUTINE
  21   END INTERFACE
  22
  23 CONTAINS
  24
  25   FUNCTION get(this)
  26     CLASS(t) :: this
  27     REAL, DIMENSION(this%n) :: get
  28   END FUNCTION
  29
  30   SUBROUTINE destroy(this)
  31     CLASS(t) :: this
  32   END SUBROUTINE
  33
  34 END MODULE
  35
  36
  37 PROGRAM p
  38   USE m
  39 END
  40
  41 ! { dg-final { cleanup-modules "m" } }