Function make_array_declaration

src/gpre/languages/pas.cpp:3161–3235

//

static void make_array_declaration( const ref* reference)
{
	const gpre_fld* field = reference->ref_field;
	const TEXT* name = field->fld_symbol->sym_string;

	// Don't generate multiple declarations for the array.  V3 Bug 569.

	if (field->fld_array_info->ary_declared)
		return;

	field->fld_array_info->ary_declared = true;

	if (field->fld_array_info->ary_dtype <= dtype_varying)
		fprintf(gpreGlob.out_file, "gds__%d : %s [", field->fld_array_info->ary_ident, PACKED_ARRAY);
	else
		fprintf(gpreGlob.out_file, "gds__%d : array [", field->fld_array_info->ary_ident);

	// Print out the dimension part of the declaration
	for (const dim* dimension = field->fld_array_info->ary_dimension; dimension;
		dimension = dimension->dim_next)
	{
		fprintf(gpreGlob.out_file, "%" SLONGFORMAT"..%" SLONGFORMAT, dimension->dim_lower,
				   dimension->dim_upper);
		if (dimension->dim_next)
			fprintf(gpreGlob.out_file, ", ");
	}

	if (field->fld_array_info->ary_dtype <= dtype_varying)
		fprintf(gpreGlob.out_file, ", 1..%d", field->fld_array->fld_length);

	fprintf(gpreGlob.out_file, "] of ");

	switch (field->fld_array_info->ary_dtype)
	{
	case dtype_short:
		fprintf(gpreGlob.out_file, SHORT_DCL);
		break;

	case dtype_long:
		fprintf(gpreGlob.out_file, LONG_DCL);
		break;

	case dtype_cstring:
	case dtype_text:
	case dtype_varying:
		fprintf(gpreGlob.out_file, "char");
		break;

	case dtype_date:
	case dtype_quad:
		fprintf(gpreGlob.out_file, "ISC_QUAD");
		break;

	case dtype_real:
		fprintf(gpreGlob.out_file, "real");
		break;

	case dtype_double: