! { 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 "Cannot 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 | |