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