gcc/testsuite/gfortran.dg/public_private_module_10.f90

   1 ! PR 87734
   2 module m_vstring
   3   implicit none
   4
   5   public :: vstring_length
   6
   7 contains
   8
   9   subroutine vstring_cast()
  10     character ( len = vstring_length() ) :: char_string
  11   end subroutine
  12
  13   pure integer function vstring_length ()
  14   end function
  15
  16 end module