1! { dg-do compile }
2! PR fortran/51993
3! Code contributed by Sebastien Bardeau <bardeau at iram dot fr>
4module mymod
5  type :: mytyp
6    character(len=3) :: a = .true. ! { dg-error "convert LOGICAL" }
7  end type mytyp
8end module mymod
9