Searched refs:is_block_data (Results 1 – 13 of 13) sorted by relevance
1317 else if (ns->is_block_data) in finish_equivalences()
2221 if (ns->is_block_data) in gfc_generate_code()
1885 unsigned is_block_data:1; member
6022 gfc_current_ns->is_block_data = 1; in parse_block_data()
2752 if (gfc_current_ns->is_block_data) in gfc_match_omp_declare_simd()
954 if (!csym->ns->is_block_data) in resolve_common_vars()16165 if (sym->ns->is_block_data && !sym->attr.in_common) in check_data_variable()
1346 else if (ns->is_block_data) in finish_equivalences()
2313 if (ns->is_block_data) in gfc_generate_code()
2146 unsigned is_block_data:1; member
710 * gfortran.h (gfc_namespace): Add new field is_block_data.712 (parse_block_data): Record BLOCK DATA name, set is_block_data field.
6364 gfc_current_ns->is_block_data = 1; in parse_block_data()
978 if (!csym->ns->is_block_data) in resolve_common_vars()16393 if (sym->ns->is_block_data && !sym->attr.in_common) in check_data_variable()
4045 if (gfc_current_ns->is_block_data) in gfc_match_omp_declare_simd()