Compiler/lexical analyzer: Difference between revisions
m
→{{header|Fortran}}
Line 4,194:
select case (token%token_no)
case (tk_Integer, tk_Ident, tk_String)
write (outputter%unit_no, '(
& token%line_no, token%column_no, &
& token_names(token%token_no), token%val
case default
write (outputter%unit_no, '(
& token%line_no, token%column_no, &
& token_names(token%token_no)
end select
| |||