38 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for semantic errors in num_images() function calls3 4subroutine test5 use iso_fortran_env, only: team_type6 implicit none7 8 type(team_type) my_team9 10 ! correct calls, should produce no errors11 print *, num_images()12 print *, num_images(team_number=1)13 print *, num_images(1)14 print *, num_images(my_team)15 print *, num_images(team=my_team)16 17 ! incorrectly typed argument18 ! the error is seen as too many arguments to the num_images() call with no arguments19 !ERROR: too many actual arguments for intrinsic 'num_images'20 print *, num_images(3.4)21 22 ! call with too many arguments23 !ERROR: too many actual arguments for intrinsic 'num_images'24 print *, num_images(1, 1)25 26 ! keyword argument with incorrect type27 !ERROR: unknown keyword argument to intrinsic 'num_images'28 print *, num_images(team_number=3.4)29 30 ! incorrect keyword argument31 !ERROR: unknown keyword argument to intrinsic 'num_images'32 print *, num_images(team_numbers=1)33 34 !ERROR: unknown keyword argument to intrinsic 'num_images'35 print *, num_images(teams=my_team)36 37end subroutine38