Skip to content
Snippets Groups Projects
  • Paul Thomas's avatar
    a4b9e93e
    re PR libfortran/25378 ([Fortran 2003] maxloc for all-false mask) · a4b9e93e
    Paul Thomas authored
    2006-03-13  Paul Thomas  <pault@gcc.gnu.org>
    
    	PR fortran/25378
    	* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Set the initial position to zero and
    	modify the condition for updating it, to implement the F2003 requirement for all(mask)
    	is false.
    
    2006-03-13  Paul Thomas  <pault@gcc.gnu.org>
    
    	PR fortran/25378
    	* libgfortran/m4/minloc1.m4: Set the initial position to zero and modify the condition for
    	updating it, to implement the F2003 requirement for all(mask).eq.false.
    	* libgfortran/m4/maxloc1.m4: The same.
    	* libgfortran/m4/iforeach.m4: The same.
    	* libgfortran/m4/minloc0.m4: The same.
    	* libgfortran/m4/maxloc0.m4: The same.
    	* libgfortran/generated/maxloc0_16_i16.c: Regenerated, together with 41 others.
    	* libgfortran/generated/minloc0_16_i16.c: Regenerated, together with 41 others.
    
    2006-03-13  Paul Thomas  <pault@gcc.gnu.org>
    
    	PR fortran/25378
    	* gfortran.fortran-torture/execute/intrinsic_mmloc_3.f90: Expand test to include more
    	permuatations of mask and index.
    	* testsuite/gfortran.dg/scalar_mask_1.f90: Modify last test to respond to F2003 spec.
    	that the position returned for an all false mask && condition is zero.
    
    From-SVN: r112028
    a4b9e93e
    History
    re PR libfortran/25378 ([Fortran 2003] maxloc for all-false mask)
    Paul Thomas authored
    2006-03-13  Paul Thomas  <pault@gcc.gnu.org>
    
    	PR fortran/25378
    	* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Set the initial position to zero and
    	modify the condition for updating it, to implement the F2003 requirement for all(mask)
    	is false.
    
    2006-03-13  Paul Thomas  <pault@gcc.gnu.org>
    
    	PR fortran/25378
    	* libgfortran/m4/minloc1.m4: Set the initial position to zero and modify the condition for
    	updating it, to implement the F2003 requirement for all(mask).eq.false.
    	* libgfortran/m4/maxloc1.m4: The same.
    	* libgfortran/m4/iforeach.m4: The same.
    	* libgfortran/m4/minloc0.m4: The same.
    	* libgfortran/m4/maxloc0.m4: The same.
    	* libgfortran/generated/maxloc0_16_i16.c: Regenerated, together with 41 others.
    	* libgfortran/generated/minloc0_16_i16.c: Regenerated, together with 41 others.
    
    2006-03-13  Paul Thomas  <pault@gcc.gnu.org>
    
    	PR fortran/25378
    	* gfortran.fortran-torture/execute/intrinsic_mmloc_3.f90: Expand test to include more
    	permuatations of mask and index.
    	* testsuite/gfortran.dg/scalar_mask_1.f90: Modify last test to respond to F2003 spec.
    	that the position returned for an all false mask && condition is zero.
    
    From-SVN: r112028