21 lines
368 B
Fortran
21 lines
368 B
Fortran
! { 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
|
|
|