blob: 706d82371c27a7e17e03173815cb9ae09f6181ad [file] [log] [blame]
! RUN: %python %S/ %s %flang_fc1
! Check errors on MAX/MIN with keywords, a weird case in Fortran
real :: x = 0.0 ! prevent folding
!ERROR: Argument keyword 'a1=' was repeated in call to 'max'
print *, max(a1=x,a1=1)
!ERROR: Keyword argument 'a1=' has already been specified positionally (#1) in this procedure reference
print *, max(x,a1=1)
!ERROR: Argument keyword 'a6=' is not recognized for this procedure reference
print *, max(a1=x,a2=0,a3=0,a4=0,a6=0)