1! { dg-do compile } 2program p 3 type t 4 character :: c = 'c' 5 end type 6 type(t), parameter :: x = 1.e1 ! { dg-error "Incompatible initialization between a" } 7 print *, 'a' // x%c 8end 9! { dg-prune-output "has no IMPLICIT type" } 10