c6a23df691
I added 'num_images()' to the list of functions that are evaluated as intrinsic. I also added a test file in flang/test/Semantics to test calls to 'num_images()'. There was a call to 'num_images()' in flang/test/Semantics/call10.f90 that expected an error, now it no longer produces an error. So I edited that file accordingly. I also edited the intrinsics unit test to add further testing of 'num_images()'. Differential Revision: https://reviews.llvm.org/D83142
31 lines
930 B
Fortran
31 lines
930 B
Fortran
! RUN: %S/test_errors.sh %s %t %f18
|
|
! Check for semantic errors in num_images() function calls
|
|
|
|
subroutine test
|
|
|
|
! correct calls, should produce no errors
|
|
print *, num_images()
|
|
print *, num_images(team_number=1)
|
|
print *, num_images(1)
|
|
|
|
! 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)
|
|
|
|
!TODO: test num_images() calls related to team_type argument
|
|
|
|
end subroutine
|