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