OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Jerry DeLisle 2008-04-24 03:55:05 +00:00
parent 4e77ad242f
commit 6412ecdc93
3 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
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.

18
gcc/testsuite/gfortran.dg/minmaxloc_5.f90 Normal file
View File

@ -0,0 +1,18 @@
! { 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

11
gcc/testsuite/gfortran.dg/minmaxloc_6.f90 Normal file
View File

@ -0,0 +1,11 @@
! { 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