! { dg-do compile }
! PR fortran/80752
module exchange_utils

  implicit none

  integer, parameter, public :: knd = 8

  type, private :: a
     logical :: add_vs98 = 0.0_knd ! { dg-error "Can't convert" }
  end type a

  type, private :: x_param_t
     type(a) :: m05_m06
  end type x_param_t

  type(x_param_t), public, save :: x_param

end module exchange_utils