1! { dg-do compile } 2! 3! PR fortran/57894 4! 5! Contributed by Vittorio Zecca 6! 7print *, max(a2=2,a65=45,a2=5) ! { dg-error "has already appeared in the current argument list" } 8print *, min(a1=2.0,a65=45.0,a2=5.0e0) ! OK 9print *, max(a2=2,a65=45,a3=5) ! { dg-error "Missing 'a1' argument to the max intrinsic" } 10print *, min(a1=2.0,a65=45.0,a3=5.0e0) ! { dg-error "Missing 'a2' argument to the min intrinsic" } 11print *, min1(2.0,a1=45.0,a2=5.0e0) ! { dg-error "Duplicate argument 'a1'" } 12 13print *, max0(a1=2,a65a=45,a2=5) ! { dg-error "Unknown argument 'a65a'" } 14print *, amax0(a1=2,as65=45,a2=5) ! { dg-error "Unknown argument 'as65'" } 15print *, max1(a1=2,a2=45,5) ! { dg-error "Missing keyword name in actual argument list" } 16print *, amax1(a1=2,a3=45,a4=5) ! { dg-error "Missing 'a2' argument" } 17print *, dmax1(a1=2,a2=45,a4z=5) ! { dg-error "Unknown argument 'a4z'" } 18 19print *, min0(a1=2,a65a=45,a2=5) ! { dg-error "Unknown argument 'a65a'" } 20print *, amin0(a1=2,as65=45,a2=5) ! { dg-error "Unknown argument 'as65'" } 21print *, min1(a1=2,a2=45,5) ! { dg-error "Missing keyword name in actual argument list" } 22print *, amin1(a1=2,a3=45,a4=5) ! { dg-error "Missing 'a2' argument" } 23print *, dmin1(a1=2,a2=45,a4z=5) ! { dg-error "Unknown argument 'a4z'" } 24end 25