gcc/testsuite/gfortran.dg/typebound_call_25.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 57966: [OOP] Using a TBP to specify the shape of a dummy argument
   4 !
   5 ! Contributed by Stefan Mauerberger <stefan.mauerberger@gmail.com>
   6
   7 MODULE my_mod
   8   IMPLICIT NONE
   9
  10   TYPE config_cls
  11   CONTAINS
  12     PROCEDURE, NOPASS :: my_size
  13     PROCEDURE, NOPASS :: my_sub
  14     GENERIC :: sz => my_size
  15     GENERIC :: sub => my_sub
  16   END TYPE
  17
  18   TYPE(config_cls) :: config
  19
  20 CONTAINS
  21
  22   PURE INTEGER FUNCTION my_size()
  23     my_size = 10
  24   END FUNCTION
  25
  26   SUBROUTINE my_sub
  27   END SUBROUTINE
  28
  29   SUBROUTINE test (field1, field2, field3, field4)
  30     REAL :: field1 (config%my_size())
  31     REAL :: field2 (config%sz())
  32     REAL :: field3 (config%my_sub())  ! { dg-error "should be a FUNCTION" }
  33     REAL :: field4 (config%sub())     ! { dg-error "should be a FUNCTION" }
  34   END SUBROUTINE
  35
  36 END MODULE