1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Check for semantic errors in team_number() function calls 3 4subroutine test 5 use, intrinsic :: iso_fortran_env, only: team_type 6 type(team_type) :: team 7 8 ! correct calls, should produce no errors 9 team = get_team() 10 print *, team_number() 11 print *, team_number(team) 12 print *, team_number(team=team) 13 14 ! call with too many arguments 15 !ERROR: too many actual arguments for intrinsic 'team_number' 16 print *, team_number(1, 3) 17 18 ! keyword argument with incorrect type 19 !ERROR: Actual argument for 'team=' has bad type 'REAL(4)' 20 print *, team_number(team=3.1415) 21 22end subroutine 23