13 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12use ieee_arithmetic, only: ieee_int, ieee_real, ieee_up3implicit none4print *, ieee_int(1.5, ieee_up)5print *, ieee_int(1.5, ieee_up, 4)6!ERROR: 'kind=' argument must be a constant scalar integer whose value is a supported kind for the intrinsic result type7print *, ieee_int(1.5, ieee_up, 3)8print *, ieee_real(1)9print *, ieee_real(1, 4)10!ERROR: 'kind=' argument must be a constant scalar integer whose value is a supported kind for the intrinsic result type11print *, ieee_real(1, 7)12end13