PR fortran/97272 - Wrong answer from MAXLOC with character arg
authorHarald Anlauf <anlauf@gmx.de>
Sun, 4 Oct 2020 18:24:29 +0000 (20:24 +0200)
committerHarald Anlauf <anlauf@gmx.de>
Sun, 4 Oct 2020 18:24:29 +0000 (20:24 +0200)
commit35d2c6b6e8a7448a84abbf967feeb78a29117014
tree25db061b1843c6b8c520ace515a1d3df3f050350
parent11bd94806d488416dfad1b1ff2ff0f98001cd0ca
PR fortran/97272 - Wrong answer from MAXLOC with character arg

The optional KIND argument to the MINLOC/MAXLOC intrinsic must not be
passed to the library function, as the kind conversion of the result
is treated explicitly elsewhere.

gcc/fortran/ChangeLog:

PR fortran/97272
* trans-intrinsic.c (strip_kind_from_actual): Helper function for
removal of KIND argument.
(gfc_conv_intrinsic_minmaxloc): Ignore KIND argument here, as it
is treated elsewhere.

gcc/testsuite/ChangeLog:

PR fortran/97272
* gfortran.dg/pr97272.f90: New test.
gcc/fortran/trans-intrinsic.c
gcc/testsuite/gfortran.dg/pr97272.f90 [new file with mode: 0644]