2 ! PR35994 [4.3/4.4 regression] MAXLOC and MINLOC off by one with mask
5 dda = (/(J1,J1=1,100)/)
7 if (ids.ne.100) call abort !expect 100
9 IDS = MAXLOC(DDA,1, (/(J1,J1=1,100)/) > 50)
10 if (ids.ne.100) call abort !expect 100
13 if (ids.ne.1) call abort !expect 1
15 IDS = MinLOC(DDA,1, (/(J1,J1=1,100)/) > 50)
16 if (ids.ne.51) call abort !expect 51