Searched refs:last_error_char (Results 1 – 3 of 3) sorted by relevance
84 static gfc_char_t *last_error_char; variable274 last_error_char = NULL; in gfc_scanner_init_1()1769 if (!ISPRINT(c) && c != '\n' && last_error_char != gfc_current_locus.nextc) in gfc_gobble_whitespace()1772 last_error_char = gfc_current_locus.nextc; in gfc_gobble_whitespace()
799 * fortran/scanner.c (last_error_char): New global variable.800 (gfc_scanner_init_1): Set last_error_char to NULL.
83 static gfc_char_t *last_error_char; variable273 last_error_char = NULL; in gfc_scanner_init_1()1721 if (!ISPRINT(c) && c != '\n' && last_error_char != gfc_current_locus.nextc) in gfc_gobble_whitespace()1724 last_error_char = gfc_current_locus.nextc; in gfc_gobble_whitespace()