1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic 2! Tests for the EXECUTE_COMMAND_LINE intrinsics 3 4subroutine bad_kind_error(command, exitVal, cmdVal) 5CHARACTER(30) :: command 6INTEGER(KIND=2) :: exitVal 7INTEGER(KIND=1) :: cmdVal 8!ERROR: Actual argument for 'exitstat=' has bad type or kind 'INTEGER(2)' 9call execute_command_line(command, exitstat=exitVal) 10 11!ERROR: Actual argument for 'cmdstat=' has bad type or kind 'INTEGER(1)' 12call execute_command_line(command, cmdstat=cmdVal) 13end subroutine bad_kind_error 14 15subroutine good_kind_equal(command, exitVal, cmdVal) 16CHARACTER(30) :: command 17INTEGER(KIND=4) :: exitVal 18INTEGER(KIND=2) :: cmdVal 19call execute_command_line(command, exitstat=exitVal) 20call execute_command_line(command, cmdstat=cmdVal) 21end subroutine good_kind_equal 22 23subroutine good_kind_greater(command, exitVal, cmdVal) 24CHARACTER(30) :: command 25INTEGER(KIND=8) :: exitVal 26INTEGER(KIND=4) :: cmdVal 27call execute_command_line(command, exitstat=exitVal) 28call execute_command_line(command, cmdstat=cmdVal) 29end subroutine good_kind_greater 30