1*1d3bcf99SPeter Klausler!RUN: %python %S/test_errors.py %s %flang_fc1
2*1d3bcf99SPeter Klausler!ERROR: 'kind=' argument must be a constant scalar integer whose value is a supported kind for the intrinsic result type
3*1d3bcf99SPeter Klauslerprint *, real(1.,666)
4*1d3bcf99SPeter Klauslerend
5