Compiler/lexical analyzer: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,194: / Line 4,194: @@
     select case (token%token_no)
     case (tk_Integer, tk_Ident, tk_String)
-       write (outputter%unit_no, '(X, I20, X, I20, X, A20, X, A)') &
+       write (outputter%unit_no, '(1X, I20, 1X, I20, 1X, A20, 1X, A)') &
-            &    token%line_no, token%column_no,                   &
+            &    token%line_no, token%column_no,                       &
             &    token_names(token%token_no), token%val
     case default
-       write (outputter%unit_no, '(X, I20, X, I20, X, A20)')       &
+       write (outputter%unit_no, '(1X, I20, 1X, I20, 1X, A20)')       &
-            &    token%line_no, token%column_no,                   &
+            &    token%line_no, token%column_no,                      &
             &    token_names(token%token_no)
     end select