1! { dg-do compile }
2! PR fortran/80752
3module exchange_utils
4
5  implicit none
6
7  integer, parameter, public :: knd = 8
8
9  type, private :: a
10     logical :: add_vs98 = 0.0_knd ! { dg-error "Cannot convert" }
11  end type a
12
13  type, private :: x_param_t
14     type(a) :: m05_m06
15  end type x_param_t
16
17  type(x_param_t), public, save :: x_param
18
19end module exchange_utils
20
21