1! { dg-do compile } 2 print precision(1.) ! { dg-error "must be of type default CHARACTER" } 3 end 4