| /dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/fortran/ |
| H A D | resolve.c | 2168 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2170 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2173 if (sym->ns == gsym_ns) in not_in_recursive()
2176 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2183 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2185 if (gsym_ns->entries) in not_entry_self_reference()
2187 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2193 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2198 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc48/gcc-4.8.5/gcc/fortran/ |
| H A D | resolve.c | 2091 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2093 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2096 if (sym->ns == gsym_ns) in not_in_recursive()
2099 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2106 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2108 if (gsym_ns->entries) in not_entry_self_reference()
2110 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2116 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2121 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/devel/mingw32-gcc/gcc-4.8.1/gcc/fortran/ |
| H A D | resolve.c | 2094 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2096 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2099 if (sym->ns == gsym_ns) in not_in_recursive()
2102 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2109 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2111 if (gsym_ns->entries) in not_entry_self_reference()
2113 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2119 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2124 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | resolve.c | 2310 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2312 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2315 if (sym->ns == gsym_ns) in not_in_recursive()
2318 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2325 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2327 if (gsym_ns->entries) in not_entry_self_reference()
2329 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2335 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2340 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/gcc/fortran/ |
| H A D | resolve.c | 2312 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2314 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2317 if (sym->ns == gsym_ns) in not_in_recursive()
2320 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2327 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2329 if (gsym_ns->entries) in not_entry_self_reference()
2331 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2337 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2342 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gnat_util/gcc-6-20180516/gcc/fortran/ |
| H A D | resolve.c | 2203 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2205 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2208 if (sym->ns == gsym_ns) in not_in_recursive()
2211 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2218 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2220 if (gsym_ns->entries) in not_entry_self_reference()
2222 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2228 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2233 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | resolve.c | 2310 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2312 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2315 if (sym->ns == gsym_ns) in not_in_recursive()
2318 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2325 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2327 if (gsym_ns->entries) in not_entry_self_reference()
2329 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2335 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2340 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | resolve.c | 2310 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2312 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2315 if (sym->ns == gsym_ns) in not_in_recursive()
2318 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2325 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2327 if (gsym_ns->entries) in not_entry_self_reference()
2329 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2335 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2340 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | resolve.c | 2310 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2312 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2315 if (sym->ns == gsym_ns) in not_in_recursive()
2318 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2325 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2327 if (gsym_ns->entries) in not_entry_self_reference()
2329 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2335 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2340 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/fortran/ |
| H A D | resolve.c | 2203 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2205 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2208 if (sym->ns == gsym_ns) in not_in_recursive()
2211 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2218 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2220 if (gsym_ns->entries) in not_entry_self_reference()
2222 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2228 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2233 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/devel/avr-gcc/gcc-10.2.0/gcc/fortran/ |
| H A D | resolve.c | 2345 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2347 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2350 if (sym->ns == gsym_ns) in not_in_recursive()
2353 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2360 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2362 if (gsym_ns->entries) in not_entry_self_reference()
2364 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2370 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2375 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc11-devel/gcc-11-20211009/gcc/fortran/ |
| H A D | resolve.c | 2379 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2381 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2384 if (sym->ns == gsym_ns) in not_in_recursive()
2387 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2394 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2396 if (gsym_ns->entries) in not_entry_self_reference()
2398 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2404 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2409 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc10-devel/gcc-10-20211008/gcc/fortran/ |
| H A D | resolve.c | 2345 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2347 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2350 if (sym->ns == gsym_ns) in not_in_recursive()
2353 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2360 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2362 if (gsym_ns->entries) in not_entry_self_reference()
2364 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2370 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2375 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc9-aux/gcc-9.1.0/gcc/fortran/ |
| H A D | resolve.c | 2315 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2317 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2320 if (sym->ns == gsym_ns) in not_in_recursive()
2323 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2330 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2332 if (gsym_ns->entries) in not_entry_self_reference()
2334 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2340 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2345 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/fortran/ |
| H A D | resolve.c | 2368 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2370 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2373 if (sym->ns == gsym_ns) in not_in_recursive()
2376 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2383 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2385 if (gsym_ns->entries) in not_entry_self_reference()
2387 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2393 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2398 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc10/gcc-10.3.0/gcc/fortran/ |
| H A D | resolve.c | 2345 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2347 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2350 if (sym->ns == gsym_ns) in not_in_recursive()
2353 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2360 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2362 if (gsym_ns->entries) in not_entry_self_reference()
2364 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2370 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2375 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc9-devel/gcc-9-20211007/gcc/fortran/ |
| H A D | resolve.c | 2346 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2348 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2351 if (sym->ns == gsym_ns) in not_in_recursive()
2354 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2361 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2363 if (gsym_ns->entries) in not_entry_self_reference()
2365 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2371 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2376 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/fortran/ |
| H A D | resolve.c | 2312 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2314 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2317 if (sym->ns == gsym_ns) in not_in_recursive()
2320 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2327 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2329 if (gsym_ns->entries) in not_entry_self_reference()
2331 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2337 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2342 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc11/gcc-11.2.0/gcc/fortran/ |
| H A D | resolve.c | 2368 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2370 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2373 if (sym->ns == gsym_ns) in not_in_recursive()
2376 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2383 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2385 if (gsym_ns->entries) in not_entry_self_reference()
2387 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2393 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2398 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc9/gcc-9.4.0/gcc/fortran/ |
| H A D | resolve.c | 2346 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2348 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2351 if (sym->ns == gsym_ns) in not_in_recursive()
2354 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2361 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2363 if (gsym_ns->entries) in not_entry_self_reference()
2365 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2371 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2376 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|
| /dports/lang/gcc12-devel/gcc-12-20211205/gcc/fortran/ |
| H A D | resolve.c | 2414 not_in_recursive (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_in_recursive() argument
2416 if (!gsym_ns->proc_name->attr.recursive) in not_in_recursive()
2419 if (sym->ns == gsym_ns) in not_in_recursive()
2422 if (sym->ns->parent && sym->ns->parent == gsym_ns) in not_in_recursive()
2429 not_entry_self_reference (gfc_symbol *sym, gfc_namespace *gsym_ns) in not_entry_self_reference() argument
2431 if (gsym_ns->entries) in not_entry_self_reference()
2433 gfc_entry_list *entry = gsym_ns->entries; in not_entry_self_reference()
2439 if (strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
2444 && strcmp (gsym_ns->proc_name->name, in not_entry_self_reference()
|