! { dg-do compile }
!
! Test the fix for PR83148.
!
! Contributed by Neil Carlson  <neil.n.carlson@gmail.com>
!
module fhypre
  use iso_c_binding, only: c_ptr, c_null_ptr
  use iso_c_binding, only: hypre_obj => c_ptr, hypre_null_obj => c_null_ptr
  private
  public :: hypre_obj, hypre_null_obj
end module

module hypre_hybrid_type
  use fhypre
  type hypre_hybrid
    type(hypre_obj) :: solver = hypre_null_obj
  end type hypre_hybrid
end module

  use hypre_hybrid_type
  class(hypre_hybrid), allocatable :: x
  allocate (x)
end