gcc/testsuite/gfortran.dg/min_max_conformance_2.f90

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