+#define METHODNAME "main"
+#define NRARGS 0
+#define NRES 0
+ owner = get_glob_type();
+ proc_main = new_type_method(id_from_str(METHODNAME, strlen(METHODNAME)),
+ NRARGS, NRES);
+
+ /* Make type information for called method which also belongs to the
+ global type. */
+#define F_METHODNAME "f"
+#define F_NRARGS 1
+#define F_NRES 0
+ owner = get_glob_type();
+ proc_called = new_type_method(id_from_str(F_METHODNAME, strlen(F_METHODNAME)),
+ F_NRARGS, F_NRES);
+ set_method_param_type(proc_called, 0, string_ptr);
+
+ /* Make the entity for main needed for a correct ir_graph. */