这是怎么回事？

摇摆兔

1. PROGRAM MAX;
   
2. VAR A:INTEGER;
   
3. PROCEDURE UNSIGNEDMAX(VAR MAXINT:INTEGER);
   
4. BEGIN
   
5. MAXINT:=NOT 0;
   
6. END;
   
7. PROCEDURE SIGNEDMAX(VAR MAXINT:INTEGER);
   
8. BEGIN
   
9. MAXINT:=(NOT 0) SHR 1;
   
10. END;
    
11. BEGIN
    
12. UNSIGNEDMAX(A);
    
13. WRITELN(A);
    
14. SIGNEDMAX(A);
    
15. WRITELN(A);
    
16. END.

复制代码

摇摆兔

编译不通过

gold8

可以编译通过啊！  lazarus 1.42

摇摆兔

我用的是free pascal 2.6.4，platform: gentoo。