From: Thomas Koenig Date: Thu, 10 May 2018 14:31:54 +0000 (+0000) Subject: re PR fortran/54613 ([F08] Add FINDLOC plus support MAXLOC/MINLOC with KIND=/BACK=) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6c4578da00267f279333154dc0b0bba391fe878a;p=gcc.git re PR fortran/54613 ([F08] Add FINDLOC plus support MAXLOC/MINLOC with KIND=/BACK=) 2018-05-10 Thomas Koenig PR fortran/54613 * intrinsic.texi: Document BACK for MINLOC and MAXLOC. From-SVN: r260116 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 34d776b89dd..474cd7036b5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2018-05-10 Thomas Koenig + + PR fortran/54613 + * intrinsic.texi: Document BACK for MINLOC and MAXLOC. + 2018-05-10 Paul Thomas PR fortran/68846 diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index e38440d9b56..adea02a78e5 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -9991,8 +9991,10 @@ locations of the maximum element along each row of the array in the @var{DIM} direction. If @var{MASK} is present, only the elements for which @var{MASK} is @code{.TRUE.} are considered. If more than one element in the array has the maximum value, the location returned is -that of the first such element in array element order. If the array has -zero size, or all of the elements of @var{MASK} are @code{.FALSE.}, then +that of the first such element in array element order if the +@var{BACK} is not present, or if it false; otherwise, the location +returned is that of the first such element. If the array has zero +size, or all of the elements of @var{MASK} are @code{.FALSE.}, then the result is an array of zeroes. Similarly, if @var{DIM} is supplied and all of the elements of @var{MASK} along a given row are zero, the result value for that row is zero. @@ -10000,14 +10002,15 @@ result value for that row is zero. @item @emph{Standard}: Fortran 95 and later; @var{ARRAY} of @code{CHARACTER} and the @var{KIND} argument are available in Fortran 2003 and later. +The @var{BACK} argument is available in Fortran 2008 and later. @item @emph{Class}: Transformational function @item @emph{Syntax}: @multitable @columnfractions .80 -@item @code{RESULT = MAXLOC(ARRAY, DIM [, MASK] [,KIND])} -@item @code{RESULT = MAXLOC(ARRAY [, MASK] [,KIND])} +@item @code{RESULT = MAXLOC(ARRAY, DIM [, MASK] [,KIND] [,BACK])} +@item @code{RESULT = MAXLOC(ARRAY [, MASK] [,KIND] [,BACK])} @end multitable @item @emph{Arguments}: @@ -10021,6 +10024,7 @@ inclusive. It may not be an optional dummy argument. and conformable with @var{ARRAY}. @item @var{KIND} @tab (Optional) An @code{INTEGER} initialization expression indicating the kind parameter of the result. +@item @var{BACK} @tab (Optional) A scalar of type @code{LOGICAL}. @end multitable @item @emph{Return value}: @@ -10343,7 +10347,9 @@ locations of the minimum element along each row of the array in the @var{DIM} direction. If @var{MASK} is present, only the elements for which @var{MASK} is @code{.TRUE.} are considered. If more than one element in the array has the minimum value, the location returned is -that of the first such element in array element order. If the array has +that of the first such element in array element order if the +@var{BACK} is not present, or if it false; otherwise, the location +returned is that of the first such element. If the array has zero size, or all of the elements of @var{MASK} are @code{.FALSE.}, then the result is an array of zeroes. Similarly, if @var{DIM} is supplied and all of the elements of @var{MASK} along a given row are zero, the @@ -10352,14 +10358,15 @@ result value for that row is zero. @item @emph{Standard}: Fortran 95 and later; @var{ARRAY} of @code{CHARACTER} and the @var{KIND} argument are available in Fortran 2003 and later. +The @var{BACK} argument is available in Fortran 2008 and later. @item @emph{Class}: Transformational function @item @emph{Syntax}: @multitable @columnfractions .80 -@item @code{RESULT = MINLOC(ARRAY, DIM [, MASK] [,KIND])} -@item @code{RESULT = MINLOC(ARRAY [, MASK], [,KIND])} +@item @code{RESULT = MINLOC(ARRAY, DIM [, MASK] [,KIND] [,BACK])} +@item @code{RESULT = MINLOC(ARRAY [, MASK], [,KIND] [,BACK])} @end multitable @item @emph{Arguments}: @@ -10373,6 +10380,7 @@ inclusive. It may not be an optional dummy argument. and conformable with @var{ARRAY}. @item @var{KIND} @tab (Optional) An @code{INTEGER} initialization expression indicating the kind parameter of the result. +@item @var{BACK} @tab (Optional) A scalar of type @code{LOGICAL}. @end multitable @item @emph{Return value}: