322     	s4o.print(".");

   322     	s4o.print(".");

   323     	symbol->field_selector->accept(*this);

   323     	symbol->field_selector->accept(*this);

   324       }

   324       }

   325       break;

   325       break;

   326     case complextype_suffix_vg:

   326     case complextype_suffix_vg:

   328       symbol->record_variable->accept(*this);

   327       symbol->record_variable->accept(*this);

   329       if (type_is_complex) {

   328       if (type_is_complex) {

   330         s4o.print(".");

   329         s4o.print(".");

   331         symbol->field_selector->accept(*this);

   330         symbol->field_selector->accept(*this);

   332       }

   331       }

   333       break;

   337       break;

   334     default:

   338     default:

   335       if (this->is_variable_prefix_null()) {

   339       if (this->is_variable_prefix_null()) {

   336     	symbol->record_variable->accept(*this);

   340     	symbol->record_variable->accept(*this);

   337     	s4o.print(".");

   341     	s4o.print(".");