Index: flang/runtime/character.h =================================================================== --- flang/runtime/character.h +++ flang/runtime/character.h @@ -105,18 +105,6 @@ const char *sourceFile = nullptr, int sourceLine = 0); void RTNAME(CharacterMin)(Descriptor &accumulator, const Descriptor &x, const char *sourceFile = nullptr, int sourceLine = 0); -void RTNAME(CharacterMaxVal)(Descriptor &result, const Descriptor &x, - int dim = 0, const Descriptor *mask = nullptr, - const char *sourceFile = nullptr, int sourceLine = 0); -void RTNAME(CharacterMinVal)(Descriptor &result, const Descriptor &x, - int dim = 0, const Descriptor *mask = nullptr, - const char *sourceFile = nullptr, int sourceLine = 0); -void RTNAME(CharacterMaxLoc)(Descriptor &result, const Descriptor &x, - int dim = 0, const Descriptor *mask = nullptr, int kind = sizeof(int), - bool back = false, const char *sourceFile = nullptr, int sourceLine = 0); -void RTNAME(CharacterMinLoc)(Descriptor &result, const Descriptor &x, - int dim = 0, const Descriptor *mask = nullptr, int kind = sizeof(int), - bool back = false, const char *sourceFile = nullptr, int sourceLine = 0); std::size_t RTNAME(Index1)(const char *, std::size_t, const char *substring, std::size_t, bool back = false); Index: flang/runtime/character.cpp =================================================================== --- flang/runtime/character.cpp +++ flang/runtime/character.cpp @@ -1024,8 +1024,5 @@ const char *sourceFile, int sourceLine) { MaxMin(accumulator, x, sourceFile, sourceLine); } - -// TODO: Character MAXVAL/MINVAL -// TODO: Character MAXLOC/MINLOC } } // namespace Fortran::runtime