re PR fortran/35994 (MAXLOC and MINLOC off by one with mask)

2008-04-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/35994
	* gfortran.dg/minmaxloc_5.f90: New test.
	* gfortran.dg/minmaxloc_6.f90: New test.

From-SVN: r134616

gcc/testsuite/ChangeLog

+2008-04-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/35994
+	* gfortran.dg/minmaxloc_5.f90: New test.
+	* gfortran.dg/minmaxloc_6.f90: New test.
+
 2008-04-23  Steve Ellcey  <sje@cup.hp.com>
 
 	* gcc.dg/array-init-1.c: Add big-endian number to check.

gcc/testsuite/gfortran.dg/minmaxloc_5.f90

+! { dg-do run }
+! PR35994 [4.3/4.4 regression] MAXLOC and MINLOC off by one with mask
+program GA4076
+  REAL DDA(100)
+  dda = (/(J1,J1=1,100)/)
+  IDS = MAXLOC(DDA,1)
+  if (ids.ne.100) call abort  !expect 100
+  
+  IDS = MAXLOC(DDA,1, (/(J1,J1=1,100)/) > 50)
+  if (ids.ne.100) call abort  !expect 100
+
+  IDS = minLOC(DDA,1)
+  if (ids.ne.1) call abort  !expect 1
+
+  IDS = MinLOC(DDA,1, (/(J1,J1=1,100)/) > 50)
+  if (ids.ne.51) call abort !expect 51
+
+END

gcc/testsuite/gfortran.dg/minmaxloc_6.f90

+! { dg-do run }
+! PR35994 [4.3/4.4 regression] MAXLOC and MINLOC off by one with mask
+  REAL DDA(5:104)
+  dda = (/(J1,J1=1,100)/)
+
+  IDS = MAXLOC(DDA,1)
+  if (ids.ne.100) call abort  !expect 100
+  IDS = MAXLOC(DDA,1, (/(J1,J1=1,100)/) > 50)
+  if (ids.ne.100) call abort  !expect 100
+
+  END