fortout.c File Reference

#include "defines.h"
#include "host.m"
#include "host.h"
#include "target.m"
#include "target.h"
#include "globals.m"
#include "tokens.m"
#include "sytb.m"
#include "globals.h"
#include "tokens.h"
#include "sytb.h"

Include dependency graph for fortout.c:

Go to the source code of this file.

Functions
static void	print_attr_f (int, FILE *)
void	print_scp_to_fortran (int ln_fw_idx, int ln_lw_idx, int pgm_attr_idx, FILE *outfile)
char *	print_type_f (int type_idx)
void	print_const_f (FILE *outfile, int cn_idx)
Variables
static char	USMID [] = "\n@(#)5.0_pl/sources/fortout.c 5.2 05/27/99 10:30:26\n"
static char	start [20]
static int	start_column

---

Function Documentation

static void print_attr_f	(	int	attr_idx,
		FILE *	outfile
	)		[static]

Definition at line 150 of file fortout.c.

References AT_NAME_LEN, AT_OBJ_CLASS, AT_OBJ_NAME_PTR, ATD_IN_COMMON, ATD_STOR_BLK_IDX, ATD_TYPE_IDX, ATI_DCL_INTRINSIC, ATI_FIRST_SPECIFIC_IDX, ATI_NUM_SPECIFICS, ATI_UNNAMED_INTERFACE, ATN_FIRST_NAMELIST_IDX, ATN_NAMELIST_DESC, ATN_NUM_NAMELIST, ATP_DCL_EXTERNAL, ATP_ELEMENTAL, ATP_EXPL_ITRFC, ATP_EXTRA_DARG, ATP_FIRST_IDX, ATP_IN_UNNAMED_INTERFACE, ATP_NUM_DARGS, ATP_PGM_UNIT, ATP_PROC, ATP_PURE, ATP_RECURSIVE, ATP_RSLT_IDX, ATP_RSLT_NAME, ATP_SAVE_ALL, ATP_STACK_DIR, ATP_SYMMETRIC, ATP_USES_EREGS, ATT_FIRST_CPNT_IDX, ATT_NUM_CPNTS, Blockdata, comma, Data_Obj, Derived_Type, fprintf(), Function, Interface, Label, len, Module, Module_Proc, Namelist_Grp, NULL_IDX, Pgm_Unit, Pgm_Unknown, print_type_f(), Program, SB_BLANK_COMMON, SB_FIRST_ATTR_IDX, SB_NAME_PTR, SN_ATTR_IDX, SN_SIBLING_LINK, start, start_column, Stmt_Func, and Subroutine.

Referenced by print_scp_to_fortran().

Here is the call graph for this function:

void print_const_f	(	FILE *	outfile,
		int	cn_idx
	)

Definition at line 578 of file fortout.c.

References Character, CN_CONST, CN_POOL_IDX, CN_TYPE_IDX, Complex, convert_to_string(), convert_to_string_fmt, CP_CONSTANT, fprintf(), Hex_Fmt, Integer, Logical, Real, THIS_IS_TRUE, TYP_BIT_LEN, TYP_TYPE, and Typeless.

Referenced by dump_cn_ntry(), and print_const_entry().

Here is the call graph for this function:

void print_scp_to_fortran	(	int	ln_fw_idx,
		int	ln_lw_idx,
		int	pgm_attr_idx,
		FILE *	outfile
	)

Definition at line 74 of file fortout.c.

References AT_OBJ_CLASS, ATD_CLASS, ATP_IN_INTERFACE_BLK, ATP_IN_UNNAMED_INTERFACE, Data_Obj, Derived_Type, Dummy_Argument, fprintf(), Interface, Label, LN_ATTR_IDX, Namelist_Grp, Pgm_Unit, print_attr_f(), start, start_column, and Stmt_Func.

Here is the call graph for this function:

char* print_type_f

(

int

type_idx

)

Definition at line 471 of file fortout.c.

References Assumed_Size_Char, AT_OBJ_NAME_PTR, basic_type_str, Character, CN_CONST, CN_TYPE_IDX, Complex_16, Complex_4, Complex_8, Const_Len_Char, CONVERT_CVAL_TO_STR, convert_to_string(), Integer_1, Integer_2, Integer_4, Integer_8, kind, Kind_Typed, Last_Linear_Type, Logical_1, Logical_2, Logical_4, Logical_8, NULL_IDX, Real_16, Real_4, Real_8, Star_Typed, TYP_BIT_LEN, TYP_CHAR_CLASS, TYP_DCL_VALUE, TYP_DESC, TYP_IDX, TYP_LINEAR, TYP_TYPE, and Typeless.

Referenced by chain_thru_sn_ntries(), dump_at_ntry(), dump_cn_ntry(), dump_ir_ntry(), print_attr_f(), print_const_entry(), and print_so().

Here is the call graph for this function:

---

Variable Documentation

char start[20] [static]

Definition at line 55 of file fortout.c.

Referenced by _beautify(), create_imp_do_loops(), cvrt_exp_to_pdg(), cwh_io_split_io_items(), fei_doloop(), fei_implied_do(), find_and_get_str(), find_ciitem_idx(), main(), print_attr_f(), print_scp_to_fortran(), COUNTER::Reset(), WN_CreateDO(), and WN_LOOP_LowerBound().

int start_column [static]

Definition at line 56 of file fortout.c.

Referenced by print_attr_f(), and print_scp_to_fortran().

char USMID[] = "\n@(#)5.0_pl/sources/fortout.c 5.2 05/27/99 10:30:26\n" [static]

Definition at line 37 of file fortout.c.