gnue/gnue-config/test gcd_pass_test.gcd

[Neil Tiffin]

CVSROOT:        /home/cvs
Module name:    gnue
Changes by:     Neil Tiffin <address@hidden>    01/09/22 19:16:25

Modified files:
        gnue-config/test: gcd_pass_test.gcd 

Log message:
        Bug fix.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/test/gcd_pass_test.gcd.diff?cvsroot=OldCVS&tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: gnue/gnue-config/test/gcd_pass_test.gcd
diff -u gnue/gnue-config/test/gcd_pass_test.gcd:1.1 
gnue/gnue-config/test/gcd_pass_test.gcd:1.2
--- gnue/gnue-config/test/gcd_pass_test.gcd:1.1 Sat Sep 22 18:33:45 2001
+++ gnue/gnue-config/test/gcd_pass_test.gcd     Sat Sep 22 19:16:25 2001
@@ -23,7 +23,7 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.1 $ $Date: 2001/09/22 22:33:45 $ $Author: ntiffin $
+# $Revision: 1.2 $ $Date: 2001/09/22 23:16:25 $ $Author: ntiffin $
 #
 
 module mod1
@@ -44,8 +44,6 @@
 
   class class1
     {
-      #test_module_1::type1 *   bad_type_ref1;
-      #test_module_1::type2 []  bad_type_list1;
       char       char_8_fld<8>;
       date       date_fld;
       time       time_fld;
@@ -60,7 +58,7 @@
       
       mod1::type1      t;
       
-      list list_fld : mod1::class2(code) = this.char_8_fld;
+      list list_fld : mod1::c(code) = this.char_8_fld;
 
       text       helloworld(char a, char b);
 
@@ -74,8 +72,8 @@
 
   class class3
     {
-     mod1::class1 *   a_ref_field;
-     mod1::class2 []  a_list_field;
+     mod1::class1 *   ref_fld;
+     mod1::class2 []  list_fld;
    };
 };