Lines Matching full:max

2 ! Check errors on MAX/MIN with keywords, a weird case in Fortran
4 !ERROR: argument keyword 'a1=' was repeated in call to 'max'
5 print *, max(a1=x,a1=1)
6 !ERROR: keyword argument 'a1=' to intrinsic 'max' was supplied positionally by an earlier actual ar…
7 print *, max(x,a1=1)
10 print *, max(a1=x,a2=0,a4=0) ! ok
11 print *, max(x,0,a99=0) ! ok
12 !ERROR: argument keyword 'a06=' is not known in call to 'max'
13 print *, max(a1=x,a2=0,a06=0)
15 print *, max(a3=y, a1=x)
17 print *, max(a3=y, a2=x)
19 print *, max(a3=y, a4=x)
21 print *, max(y1, a3=y)
23 print *, max(a9=x, a5=y, a4=y1)
25 print *, max(x)
27 print *, max(a1=x)
29 print *, max(a2=y)
31 print *, max(a3=x)
32 !ERROR: argument keyword 'a0=' is not known in call to 'max'
33 print *, max(a0=x)
34 !ERROR: argument keyword 'a03=' is not known in call to 'max'
35 print *, max(a03=x)
36 !ERROR: argument keyword 'abad=' is not known in call to 'max'
37 print *, max(abad=x)
39 print *, max(a1=x, y)
41 print *, max(x, y, y1, a3=x)
42 print *, max(a3=x, a4=x, a2=x, a1=x) ! ok
43 print *, max(a3=x, a2=y, a4=x, a1=x) ! ok
44 print *, max(x, a2=y, a5=x, a4=x) ! ok
45 print *, max(x, y, a4=x, a6=x) ! ok