30 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic2! Tests for the EXECUTE_COMMAND_LINE intrinsics3 4subroutine bad_kind_error(command, exitVal, cmdVal)5CHARACTER(30) :: command6INTEGER(KIND=2) :: exitVal7INTEGER(KIND=1) :: cmdVal8!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_error14 15subroutine good_kind_equal(command, exitVal, cmdVal)16CHARACTER(30) :: command17INTEGER(KIND=4) :: exitVal18INTEGER(KIND=2) :: cmdVal19call execute_command_line(command, exitstat=exitVal)20call execute_command_line(command, cmdstat=cmdVal)21end subroutine good_kind_equal22 23subroutine good_kind_greater(command, exitVal, cmdVal)24CHARACTER(30) :: command25INTEGER(KIND=8) :: exitVal26INTEGER(KIND=4) :: cmdVal27call execute_command_line(command, exitstat=exitVal)28call execute_command_line(command, cmdstat=cmdVal)29end subroutine good_kind_greater30