Mercurial > hg > CbC > CbC_gcc

comparison gcc/fortran/f95-lang.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 /* gfortran backend interface 1 /* gfortran backend interface
2 Copyright (C) 2000-2018 Free Software Foundation, Inc. 2 Copyright (C) 2000-2020 Free Software Foundation, Inc.
3 Contributed by Paul Brook. 3 Contributed by Paul Brook.
4 4
5 This file is part of GCC. 5 This file is part of GCC.
6 6
7 GCC is free software; you can redistribute it and/or modify it under 7 GCC is free software; you can redistribute it and/or modify it under
89 /* Table of valid Fortran attributes. */ 89 /* Table of valid Fortran attributes. */
90 static const struct attribute_spec gfc_attribute_table[] = 90 static const struct attribute_spec gfc_attribute_table[] =
91 { 91 {
92 /* { name, min_len, max_len, decl_req, type_req, fn_type_req, 92 /* { name, min_len, max_len, decl_req, type_req, fn_type_req,
93 affects_type_identity, handler, exclude } */ 93 affects_type_identity, handler, exclude } */
94 { "omp declare target", 0, 0, true, false, false, false, 94 { "omp declare target", 0, -1, true, false, false, false,
95 gfc_handle_omp_declare_target_attribute, NULL }, 95 gfc_handle_omp_declare_target_attribute, NULL },
96 { "omp declare target link", 0, 0, true, false, false, false, 96 { "omp declare target link", 0, 0, true, false, false, false,
97 gfc_handle_omp_declare_target_attribute, NULL }, 97 gfc_handle_omp_declare_target_attribute, NULL },
98 { "oacc function", 0, -1, true, false, false, false, 98 { "oacc function", 0, -1, true, false, false, false,
99 gfc_handle_omp_declare_target_attribute, NULL }, 99 gfc_handle_omp_declare_target_attribute, NULL },
111 #undef LANG_HOOKS_PARSE_FILE 111 #undef LANG_HOOKS_PARSE_FILE
112 #undef LANG_HOOKS_MARK_ADDRESSABLE 112 #undef LANG_HOOKS_MARK_ADDRESSABLE
113 #undef LANG_HOOKS_TYPE_FOR_MODE 113 #undef LANG_HOOKS_TYPE_FOR_MODE
114 #undef LANG_HOOKS_TYPE_FOR_SIZE 114 #undef LANG_HOOKS_TYPE_FOR_SIZE
115 #undef LANG_HOOKS_INIT_TS 115 #undef LANG_HOOKS_INIT_TS
116 #undef LANG_HOOKS_OMP_ARRAY_DATA
117 #undef LANG_HOOKS_OMP_IS_ALLOCATABLE_OR_PTR
118 #undef LANG_HOOKS_OMP_CHECK_OPTIONAL_ARGUMENT
116 #undef LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE 119 #undef LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE
117 #undef LANG_HOOKS_OMP_PREDETERMINED_SHARING 120 #undef LANG_HOOKS_OMP_PREDETERMINED_SHARING
118 #undef LANG_HOOKS_OMP_REPORT_DECL 121 #undef LANG_HOOKS_OMP_REPORT_DECL
119 #undef LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR 122 #undef LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR
120 #undef LANG_HOOKS_OMP_CLAUSE_COPY_CTOR 123 #undef LANG_HOOKS_OMP_CLAUSE_COPY_CTOR
143 #define LANG_HOOKS_POST_OPTIONS gfc_post_options 146 #define LANG_HOOKS_POST_OPTIONS gfc_post_options
144 #define LANG_HOOKS_PARSE_FILE gfc_be_parse_file 147 #define LANG_HOOKS_PARSE_FILE gfc_be_parse_file
145 #define LANG_HOOKS_TYPE_FOR_MODE gfc_type_for_mode 148 #define LANG_HOOKS_TYPE_FOR_MODE gfc_type_for_mode
146 #define LANG_HOOKS_TYPE_FOR_SIZE gfc_type_for_size 149 #define LANG_HOOKS_TYPE_FOR_SIZE gfc_type_for_size
147 #define LANG_HOOKS_INIT_TS gfc_init_ts 150 #define LANG_HOOKS_INIT_TS gfc_init_ts
151 #define LANG_HOOKS_OMP_ARRAY_DATA gfc_omp_array_data
152 #define LANG_HOOKS_OMP_IS_ALLOCATABLE_OR_PTR gfc_omp_is_allocatable_or_ptr
153 #define LANG_HOOKS_OMP_CHECK_OPTIONAL_ARGUMENT gfc_omp_check_optional_argument
148 #define LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE gfc_omp_privatize_by_reference 154 #define LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE gfc_omp_privatize_by_reference
149 #define LANG_HOOKS_OMP_PREDETERMINED_SHARING gfc_omp_predetermined_sharing 155 #define LANG_HOOKS_OMP_PREDETERMINED_SHARING gfc_omp_predetermined_sharing
150 #define LANG_HOOKS_OMP_REPORT_DECL gfc_omp_report_decl 156 #define LANG_HOOKS_OMP_REPORT_DECL gfc_omp_report_decl
151 #define LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR gfc_omp_clause_default_ctor 157 #define LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR gfc_omp_clause_default_ctor
152 #define LANG_HOOKS_OMP_CLAUSE_COPY_CTOR gfc_omp_clause_copy_ctor 158 #define LANG_HOOKS_OMP_CLAUSE_COPY_CTOR gfc_omp_clause_copy_ctor
246 gfc_cpp_init (); 252 gfc_cpp_init ();
247 253
248 gfc_init_1 (); 254 gfc_init_1 ();
249 255
250 if (!gfc_new_file ()) 256 if (!gfc_new_file ())
251 fatal_error (input_location, "can't open input file: %s", gfc_source_file); 257 fatal_error (input_location, "cannot open input file: %s", gfc_source_file);
252 258
253 if (flag_preprocess_only) 259 if (flag_preprocess_only)
254 return false; 260 return false;
255 261
256 return true; 262 return true;