1/* Implement the SELECT statement for character variables. 2 Copyright (C) 2008-2022 Free Software Foundation, Inc. 3 4This file is part of the GNU Fortran runtime library (libgfortran). 5 6Libgfortran is free software; you can redistribute it and/or 7modify it under the terms of the GNU General Public 8License as published by the Free Software Foundation; either 9version 3 of the License, or (at your option) any later version. 10 11Libgfortran is distributed in the hope that it will be useful, 12but WITHOUT ANY WARRANTY; without even the implied warranty of 13MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14GNU General Public License for more details. 15 16Under Section 7 of GPL version 3, you are granted additional 17permissions described in the GCC Runtime Library Exception, version 183.1, as published by the Free Software Foundation. 19 20You should have received a copy of the GNU General Public License and 21a copy of the GCC Runtime Library Exception along with this program; 22see the files COPYING3 and COPYING.RUNTIME respectively. If not, see 23<http://www.gnu.org/licenses/>. */ 24 25#include "libgfortran.h" 26 27 28/* The string selection function is defined using a few generic macros 29 in select_inc.c, so we avoid code duplication between the various 30 character type kinds. */ 31 32#undef CHARTYPE 33#define CHARTYPE char 34#undef SUFFIX 35#define SUFFIX(x) x 36 37#include "select_inc.c" 38 39 40#undef CHARTYPE 41#define CHARTYPE gfc_char4_t 42#undef SUFFIX 43#define SUFFIX(x) x ## _char4 44 45#include "select_inc.c" 46 47