// Test underscores embedded in numeric constants

proc main()
{
    var a;
    a = 1_000.; // Underscore OK between digits before dot */
    "a = ", a, "\n";
    a = 0.00000_1; // Underscore OK between digits after dot */
    "a = ", a, "\n";
    a = 1e3_0;  // Underscore OK between digits after e */
    "a = ", a, "\n";
    a = 1_000.0_1e3_0;  // Combos OK */
    "a = ", a, "\n";
    a = 1_000;  // Underscore OK in integers
    "a = ", a, "\n";
    a = 0x1_000;  // Underscore OK in hex constants
    "a = ", a, "\n";
}