Browse Source

* for now, IO is not supported on AVR

florian 3 years ago
parent
commit
29881ee675
1 changed files with 2 additions and 0 deletions
  1. 2 0
      tests/test/tint642.pp

+ 2 - 0
tests/test/tint642.pp

@@ -717,6 +717,7 @@ procedure testioqword;
      i : longint;
 
   begin
+{$if not(defined(CPUAVR))}
      assignqword($ffffffff,$a0a0a0a0,q1);
      assign(t,'testi642.tmp');
      rewrite(t);
@@ -745,6 +746,7 @@ procedure testioqword;
             end;
        end;
     erase(t);
+{$endif not(defined(CPUAVR))}
   end;
 
 procedure teststringqword;