fixes crash on modern gcc (#2)

[rrq/jonesforth.git] / test_read_file.f

diff --git a/test_read_file.f b/test_read_file.f
index f3a6f45803e64cf4a5ba42f6ab1662310cd8d33d..3e3c8477af695395601e8f1cd1f1e150055f699b 100644 (file)
--- a/test_read_file.f
+++ b/test_read_file.f
@@ -1,14 +1,14 @@
 ( -*- text -*-
        Test READ-FILE.
-       $Id: test_read_file.f,v 1.1 2007-10-07 11:07:15 rich Exp $
+       $Id: test_read_file.f,v 1.2 2007-10-22 18:53:13 rich Exp $
 )
 
 0 VALUE FD
 100 CELLS ALLOT CONSTANT BUFFER
 
 : TEST
-       S" /etc/fstab" R/O OPEN-FILE
-       ?DUP IF S" /etc/fstab" PERROR QUIT THEN
+       S" test_read_file.f.out" R/O OPEN-FILE
+       ?DUP IF S" test_read_file.f.out" PERROR QUIT THEN
 
        TO FD