2572       || current_language->la_language == language_fortran)  in find_slot_in_mapped_hash()
7256 				 || cu->language != language_fortran))  in process_die()
7368       || (cu->language == language_fortran && physname))  in dwarf2_compute_name()
7387 	  || cu->language == language_fortran))  in dwarf2_compute_name()
7802   if (die->tag == DW_TAG_imported_module && cu->language == language_fortran)  in read_import_statement()
9576   if ((cu->language == language_cplus || cu->language == language_fortran)  in read_func_scope()
11844   if (cu->language == language_fortran  in read_array_order()
12701 	if (cu->language == language_fortran  in read_base_type()
12709 	    || cu->language == language_fortran)  in read_base_type()
12715 	    || cu->language == language_fortran)  in read_base_type()
12774     case language_fortran:  in read_subrange_type()
13719 	      && cu->language == language_fortran)  in read_partial_die()
13725 	      language_of_main = language_fortran;  in read_partial_die()
14802       cu->language = language_fortran;  in set_cu_language()
15810       if (cu->language == language_fortran  in new_symbol_full()
15937 	      if (cu->language == language_fortran && die->parent  in new_symbol_full()
15960 		  if (cu->language == language_fortran && die->parent  in new_symbol_full()
15986 	      if (cu->language == language_fortran && die->parent  in new_symbol_full()
16746       && cu->language != language_fortran)  in determine_prefix()
16893   else if (cu->language == language_fortran && physname)  in typename_concat()