4 ! This program used to cause an ICE because of the double resolution
5 ! of the maxloc expression and the addition of a hidden unnamed argument
6 ! during the first resolution.
8 ! Original testcase from G. Steinmetz
15 n
= maxloc(a
, mask
=l
) ! { dg-error ".mask. argument of .maxloc. intrinsic at .1. must be LOGICAL" }
23 n
= minloc(a
, mask
=l
) ! { dg-error ".mask. argument of .minloc. intrinsic at .1. must be LOGICAL" }
31 n
= findloc(a
, 3, mask
=l
) ! { dg-error ".mask. argument of .findloc. intrinsic at .1. must be LOGICAL" }