blob: 788b54224d8f89c390f6ef878e2db784a3180a2b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! 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
|