==================
double_literals
==================

module

proc f()
var
  x: const Double := 3.14
  y: const Double := 1e10
  z: const Double := 4.567e8
  t: const Double := 2.5E-3
return

end.

---

(source_file
  (module_declaration
    (procedure_declaration
      (identifier_definition
        (identifier))
      (parameter_list)
      (procedure_body
        (block
          (var_section
            (variable_declaration
              (identifier_definition
                (identifier))
              (const_type
                (identifier))
              (literal
                (float)))
            (variable_declaration
              (identifier_definition
                (identifier))
              (const_type
                (identifier))
              (literal
                (float)))
            (variable_declaration
              (identifier_definition
                (identifier))
              (const_type
                (identifier))
              (literal
                (float)))
            (variable_declaration
              (identifier_definition
                (identifier))
              (const_type
                (identifier))
              (literal
                (float)))))
        (return_clause)))))