2 ! Check for a few restrictions on the back argument to
5 integer, dimension(3) :: a
7 print *,minloc(a
,back
=42) ! { dg-error "must be LOGICAL" }
8 print *,minloc(a
,back
=[.true
.,.false
.]) ! { dg-error "must be a scalar" }
9 print *,maxloc(a
,back
=42) ! { dg-error "must be LOGICAL" }
10 print *,maxloc(a
,back
=[.true
.,.false
.]) ! { dg-error "must be a scalar" }