Permalink
Browse files

3 files I missed in the first commit of backend code.

  • Loading branch information...
1 parent fd33038 commit bf480af21520836f47984b5c392084974799b02b paul_brook committed Jun 29, 2002
Showing with 787 additions and 0 deletions.
  1. +754 −0 f95-lang.c
  2. +15 −0 g95-support.h
  3. +18 −0 lang-specs.h
View
View
@@ -0,0 +1,15 @@
+#ifndef F95_SUPPORT_H
+#define F95_SUPPORT_H
+
+#define boolean_type_node c_global_trees[CTI_BOOLEAN_TYPE]
+#define boolean_true_node c_global_trees[CTI_BOOLEAN_TRUE]
+#define boolean_false_node c_global_trees[CTI_BOOLEAN_FALSE]
+
+tree convert_and_check PARAMS((tree, tree));
+void overflow_warning PARAMS((tree));
+void unsigned_conversion_warning PARAMS((tree, tree));
+int g95_mark_addressable PARAMS((tree));
+
+void g95_init_c_decl_hacks(void);
+
+#endif
View
@@ -0,0 +1,18 @@
+/* Definitions for specs for the GNU Compiler Collection for g95,
+ the GNU Fortran 95 compiler.
+ Copyright (C) 2002 Free Software Foundation, Inc.
+
+This file is licensed under the GPL.
+
+*/
+
+/* This is the contribution to the `default_compilers' array in gcc.c for
+ the f95 language. */
+
+ {".f90", "@f95" },
+ {".f95", "@f95" },
+ {"@f95",
+ "%{!M:%{!MM:%{!E:f951 %i %(cc1_options) %{I*}\
+ %{!fsyntax-only:%(invoke_as)}}}}", 0},
+
+

0 comments on commit bf480af

Please sign in to comment.