Explorar o código

* problem with mixedup scanner in the current 1.1 compiler

peter %!s(int64=23) %!d(string=hai) anos
pai
achega
06a83acad6
Modificáronse 2 ficheiros con 18 adicións e 0 borrados
  1. 11 0
      tests/tbs/tb0406.pp
  2. 7 0
      tests/tbs/ub0406.pp

+ 11 - 0
tests/tbs/tb0406.pp

@@ -0,0 +1,11 @@
+unit tb0406;
+
+{$ifndef WITH_FULL}
+
+interface
+uses ub0406;
+
+implementation
+
+end.
+{$endif}

+ 7 - 0
tests/tbs/ub0406.pp

@@ -0,0 +1,7 @@
+unit ub0406;
+interface
+
+implementation
+uses tb0406;
+
+end.