23 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for semantic errors in team_number() function calls3 4subroutine test5 use, intrinsic :: iso_fortran_env, only: team_type6 type(team_type) :: team7 8 ! correct calls, should produce no errors9 team = get_team()10 print *, team_number()11 print *, team_number(team)12 print *, team_number(team=team)13 14 ! call with too many arguments15 !ERROR: too many actual arguments for intrinsic 'team_number'16 print *, team_number(1, 3)17 18 ! keyword argument with incorrect type19 !ERROR: Actual argument for 'team=' has bad type 'REAL(4)'20 print *, team_number(team=3.1415)21 22end subroutine23