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