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