gcc/testsuite/gfortran.dg/generic_9.f90

   1 ! { dg-do compile }
   2 ! Test the patch for PR29992. The standard requires that a
   3 ! module procedure be contained in the same scope as the
   4 ! interface or is use associated to it(12.3.2.1).
   5 !
   6 ! Contributed by Daniel Franke  <franke.daniel@gmail.com>
   7 !
   8 MODULE class_foo_type
   9   TYPE :: foo
  10     INTEGER :: dummy
  11   END TYPE
  12 contains
  13   SUBROUTINE bar_init_set_int(this, value)
  14     TYPE(foo), INTENT(out) :: this
  15     integer, intent(in) :: value
  16     this%dummy = value
  17   END SUBROUTINE
  18 END MODULE
  19
  20 MODULE class_foo
  21 USE class_foo_type, ONLY: foo, bar_init_set_int
  22
  23 INTERFACE foo_init
  24   MODULE PROCEDURE foo_init_default  ! { dg-error "does not come from a module" }
  25 END INTERFACE
  26
  27 INTERFACE bar_init
  28   MODULE PROCEDURE bar_init_default, bar_init_set_int  ! These are OK
  29 END INTERFACE
  30
  31 INTERFACE
  32   SUBROUTINE foo_init_default(this)
  33     USE class_foo_type, ONLY: foo
  34     TYPE(foo), INTENT(out) :: this
  35   END SUBROUTINE
  36 END INTERFACE
  37
  38 contains
  39   SUBROUTINE bar_init_default(this)
  40     TYPE(foo), INTENT(out) :: this
  41     this%dummy = 42
  42   END SUBROUTINE
  43
  44 END MODULE
  45 ! { dg-final { cleanup-modules "class_foo_type class_foo" } }