gcc/testsuite/gfortran.dg/pr80752.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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