/in/foo.cc:2:16: error: too many decimal points in number
 type abc=array[0..100000]of int64;
                ^~~~~~~~~
/in/foo.cc:8:13: error: too many decimal points in number
     a:array[0..222222]of record
             ^~~~~~~~~
/in/foo.cc:11:31: error: too many decimal points in number
     dfn,low,g,ot,ne,len:array[0..444444]of longint;
                               ^~~~~~~~~
/in/foo.cc:12:18: error: too many decimal points in number
     o,v,v1:array[0..444444]of boolean;
                  ^~~~~~~~~
/in/foo.cc:125:30: warning: multi-character character constant [-Wmultichar]
         if o[x] then writeln('No') else writeln('Yes');
                              ^~~~
/in/foo.cc:125:49: warning: multi-character character constant [-Wmultichar]
         if o[x] then writeln('No') else writeln('Yes');
                                                 ^~~~~
/in/foo.cc:1:7: error: 'inf' does not name a type; did you mean 'int'?
 const inf=1 shl 29;
       ^~~
       int
/in/foo.cc:2:1: error: 'type' does not name a type
 type abc=array[0..100000]of int64;
 ^~~~
/in/foo.cc:4:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
/in/foo.cc:6:6: error: found ':' in nested-name-specifier, expected '::'
     y:int64;
      ^
/in/foo.cc:6:5: error: 'y' does not name a type
     y:int64;
     ^
/in/foo.cc:7:5: error: 'ds' does not name a type
     ds,dt:abc;
     ^~
/in/foo.cc:8:6: error: found ':' in nested-name-specifier, expected '::'
     a:array[0..222222]of record
      ^
/in/foo.cc:8:5: error: 'a' does not name a type
     a:array[0..222222]of record
     ^
/in/foo.cc:9:21: error: found ':' in nested-name-specifier, expected '::'
         x:longint; y:int64;
                     ^
/in/foo.cc:9:20: error: 'y' does not name a type
         x:longint; y:int64;
                    ^
/in/foo.cc:10:5: error: 'end' does not name a type; did you mean 'enum'?
     end;
     ^~~
     enum
/in/foo.cc:11:5: error: 'dfn' does not name a type
     dfn,low,g,ot,ne,len:array[0..444444]of longint;
     ^~~
/in/foo.cc:12:5: error: 'o' does not name a type
     o,v,v1:array[0..444444]of boolean;
     ^
/in/foo.cc:14:1: error: 'procedure' does not name a type
 procedure addedge(x,y,z:longint);
 ^~~~~~~~~
/in/foo.cc:15:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:16:13: error: 'ot' does not name a type
     inc(e); ot[e]:=y; len[e]:=z; ne[e]:=g[x]; g[x]:=e;
             ^~
/in/foo.cc:16:23: error: 'len' does not name a type; did you mean 'long'?
     inc(e); ot[e]:=y; len[e]:=z; ne[e]:=g[x]; g[x]:=e;
                       ^~~
                       long
/in/foo.cc:16:34: error: 'ne' does not name a type
     inc(e); ot[e]:=y; len[e]:=z; ne[e]:=g[x]; g[x]:=e;
                                  ^~
/in/foo.cc:16:47: error: 'g' does not name a type
     inc(e); ot[e]:=y; len[e]:=z; ne[e]:=g[x]; g[x]:=e;
                                               ^
/in/foo.cc:17:8: error: expected constructor, destructor, or type conversion before '(' token
     inc(e); ot[e]:=x; len[e]:=z; ne[e]:=g[y]; g[y]:=e;
        ^
/in/foo.cc:17:13: error: 'ot' does not name a type
     inc(e); ot[e]:=x; len[e]:=z; ne[e]:=g[y]; g[y]:=e;
             ^~
/in/foo.cc:17:23: error: 'len' does not name a type; did you mean 'long'?
     inc(e); ot[e]:=x; len[e]:=z; ne[e]:=g[y]; g[y]:=e;
                       ^~~
                       long
/in/foo.cc:17:34: error: 'ne' does not name a type
     inc(e); ot[e]:=x; len[e]:=z; ne[e]:=g[y]; g[y]:=e;
                                  ^~
/in/foo.cc:17:47: error: 'g' does not name a type
     inc(e); ot[e]:=x; len[e]:=z; ne[e]:=g[y]; g[y]:=e;
                                               ^
/in/foo.cc:18:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
/in/foo.cc:20:1: error: 'procedure' does not name a type
 procedure init(x:longint; y:int64);
 ^~~~~~~~~
/in/foo.cc:20:28: error: found ':' in nested-name-specifier, expected '::'
 procedure init(x:longint; y:int64);
                            ^
/in/foo.cc:20:27: error: 'y' does not name a type
 procedure init(x:longint; y:int64);
                           ^
/in/foo.cc:21:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
/in/foo.cc:23:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:25:5: error: 'a' does not name a type
     a[r].x:=x;
     ^
/in/foo.cc:26:5: error: 'a' does not name a type
     a[r].y:=y;
     ^
/in/foo.cc:27:5: error: 'i' does not name a type
     i:=r;
     ^
/in/foo.cc:28:5: error: expected unqualified-id before 'while'
     while i>1 do
     ^~~~~
/in/foo.cc:33:13: error: 'a' does not name a type
             a[i]:=a[i shr 1];
             ^
/in/foo.cc:34:13: error: 'a' does not name a type
             a[i shr 1]:=a[0];
             ^
/in/foo.cc:35:13: error: 'i' does not name a type
             i:=i shr 1;
             ^
/in/foo.cc:36:9: error: 'end' does not name a type; did you mean 'enum'?
         end else break;
         ^~~
         enum
/in/foo.cc:37:5: error: 'end' does not name a type; did you mean 'enum'?
     end;
     ^~~
     enum
/in/foo.cc:38:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
/in/foo.cc:40:1: error: 'procedure' does not name a type
 procedure get;
 ^~~~~~~~~
/in/foo.cc:41:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
/in/foo.cc:43:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:44:16: error: 'y' does not name a type
     x:=a[1].x; y:=a[1].y;
                ^
/in/foo.cc:45:5: error: 'a' does not name a type
     a[1]:=a[r]; dec(r);
     ^
/in/foo.cc:45:20: error: expected constructor, destructor, or type conversion before '(' token
     a[1]:=a[r]; dec(r);
                    ^
/in/foo.cc:46:5: error: 'i' does not name a type
     i:=1;
     ^
/in/foo.cc:47:5: error: expected unqualified-id before 'while'
     while i shl 1<=r do
     ^~~~~
/in/foo.cc:51:9: error: expected unqualified-id before 'if'
         if a[i].y>a[j].y then
         ^~
/in/foo.cc:54:13: error: 'a' does not name a type
             a[i]:=a[j];
             ^
/in/foo.cc:55:13: error: 'a' does not name a type
             a[j]:=a[0];
             ^
/in/foo.cc:56:13: error: 'i' does not name a type
             i:=j;
             ^
/in/foo.cc:57:9: error: 'end' does not name a type; did you mean 'enum'?
         end else break;
         ^~~
         enum
/in/foo.cc:58:5: error: 'end' does not name a type; did you mean 'enum'?
     end;
     ^~~
     enum
/in/foo.cc:59:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
/in/foo.cc:61:1: error: 'procedure' does not name a type
 procedure Dijkstra(s:longint; var d:abc);
 ^~~~~~~~~
/in/foo.cc:61:31: error: 'var' does not name a type; did you mean 'char'?
 procedure Dijkstra(s:longint; var d:abc);
                               ^~~
                               char
/in/foo.cc:62:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:64:5: error: 'd' does not name a type
     d[s]:=0; r:=0; init(s,0);
     ^
/in/foo.cc:64:14: error: 'r' does not name a type
     d[s]:=0; r:=0; init(s,0);
              ^
/in/foo.cc:64:24: error: expected constructor, destructor, or type conversion before '(' token
     d[s]:=0; r:=0; init(s,0);
                        ^
/in/foo.cc:65:5: error: expected unqualified-id before 'for'
     for i:=1 to n do
     ^~~
/in/foo.cc:67:14: error: expected unqualified-id before 'while'
         get; while d[x]<>y do get;
              ^~~~~
/in/foo.cc:68:9: error: 'yy' does not name a type
         yy:=g[x];
         ^~
/in/foo.cc:69:9: error: expected unqualified-id before 'while'
         while yy<>0 do
         ^~~~~
/in/foo.cc:72:13: error: expected unqualified-id before 'if'
             if d[x]+len[yy]<d[y] then
             ^~
/in/foo.cc:75:21: error: expected constructor, destructor, or type conversion before '(' token
                 init(y,d[y]);
                     ^
/in/foo.cc:76:13: error: 'end' does not name a type; did you mean 'enum'?
             end;
             ^~~
             enum
/in/foo.cc:77:13: error