mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 16:26:42 +00:00
473d780692
num_images had previously been added to the list of intrinsics before the type team_type had been implemented. Now that team_type is implemented, add the num_images call that has the team argument. Update the semantics tests for num_images. Reviewed By: craig.rasmussen Differential Revision: https://reviews.llvm.org/D126734
38 lines
1.1 KiB
Fortran
38 lines
1.1 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Check for semantic errors in num_images() function calls
|
|
|
|
subroutine test
|
|
use iso_fortran_env, only: team_type
|
|
implicit none
|
|
|
|
type(team_type) my_team
|
|
|
|
! correct calls, should produce no errors
|
|
print *, num_images()
|
|
print *, num_images(team_number=1)
|
|
print *, num_images(1)
|
|
print *, num_images(my_team)
|
|
print *, num_images(team=my_team)
|
|
|
|
! incorrectly typed argument
|
|
! the error is seen as too many arguments to the num_images() call with no arguments
|
|
!ERROR: too many actual arguments for intrinsic 'num_images'
|
|
print *, num_images(3.4)
|
|
|
|
! call with too many arguments
|
|
!ERROR: too many actual arguments for intrinsic 'num_images'
|
|
print *, num_images(1, 1)
|
|
|
|
! keyword argument with incorrect type
|
|
!ERROR: unknown keyword argument to intrinsic 'num_images'
|
|
print *, num_images(team_number=3.4)
|
|
|
|
! incorrect keyword argument
|
|
!ERROR: unknown keyword argument to intrinsic 'num_images'
|
|
print *, num_images(team_numbers=1)
|
|
|
|
!ERROR: unknown keyword argument to intrinsic 'num_images'
|
|
print *, num_images(teams=my_team)
|
|
|
|
end subroutine
|