2017-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
commitf99a1f604a5f010ce77dd0449f82694d9ef5600d
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 2 Jan 2018 18:14:04 +0000 (2 18:14 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 2 Jan 2018 18:14:04 +0000 (2 18:14 +0000)
tree2605c1b38b5db5d39d8b02cc9db867b2106e10aa
parent6bc46c4670008161e63d663e50ce07ac27b2c99e
2017-01-02  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR fortran/45689
* intrinsic.c (add_function): Add gfc_simplify_maxloc and
gfc_simplify_minloc to maxloc and minloc, respectively.
* intrinsic.h: Add prototypes for gfc_simplify_minloc
and gfc_simplify_maxloc.
* simplify.c (min_max_chose): Adjust prototype.  Modify function
to have a return value which indicates if the extremum was found.
(is_constant_array_expr): Fix typo in comment.
(simplify_minmaxloc_to_scalar): New function.
(simplify_minmaxloc_nodim): New function.
(new_array): New function.
(simplify_minmaxloc_to_array): New function.
(gfc_simplify_minmaxloc): New function.
(simplify_minloc): New function.
(simplify_maxloc): New function.

2017-01-02  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR fortran/45689
* gfortran.dg/minloc_4.f90: New test case.
* gfortran.dg/maxloc_4.f90: New test case.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@256088 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/intrinsic.c
gcc/fortran/intrinsic.h
gcc/fortran/simplify.c
gcc/testsuite/gfortran.dg/maxloc_4.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/minloc_4.f90 [new file with mode: 0644]