! { dg-do compile }
!
! PR 57966: [OOP] Using a TBP to specify the shape of a dummy argument
!
! Contributed by Stefan Mauerberger <stefan.mauerberger@gmail.com>

MODULE my_mod
  IMPLICIT NONE

  TYPE config_cls
  CONTAINS
    PROCEDURE, NOPASS :: my_size
  END TYPE

  TYPE(config_cls) :: config

CONTAINS

  PURE INTEGER FUNCTION my_size()
    my_size = 10
  END FUNCTION
  
  SUBROUTINE my_sub( field )
    REAL :: field( config%my_size() )
  END SUBROUTINE

END MODULE

! { dg-final { cleanup-modules "my_mod" } }