gcc/testsuite/gfortran.dg/pr80752.f90

   1 ! { dg-do compile }
   2 ! PR fortran/80752
   3 module 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 "Can't 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
  19 end module exchange_utils
  20