Searched refs:gfc_current_block (Results 1 - 10 of 10) sorted by relevance

/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dparse.h61 #define gfc_current_block() (gfc_state_stack->sym) macro
H A Dparse.c173 if (gfc_current_block ()->result->ts.type != BT_DERIVED)
313 && gfc_current_block ()->result->ts.kind == -1)
651 && gfc_current_block ()->result->ts.kind == -1)
838 && gfc_current_block ()->result->ts.kind == -1)
2847 gcc_assert (gfc_current_block ());
2851 if (gfc_current_block ()->attr.sequence)
2853 " section at %C", gfc_current_block ()->name);
2854 if (gfc_current_block ()->attr.is_bind_c)
2856 " section at %C", gfc_current_block ()->name);
3211 if (!gfc_add_component (gfc_current_block (), u
[all...]
H A Ddecl.c2198 && current_ts.u.derived == gfc_current_block ()
2223 if (gfc_current_block ()->attr.pointer && (*as)->rank != 0)
2262 if (!gfc_add_component (gfc_current_block(), name, &c))
2330 gfc_find_symbol (c->name, gfc_current_block ()->f2k_derived,
2336 c->name, &gfc_current_block ()->declared_at);
2471 gfc_symbol *block = gfc_current_block ();
2822 && strcmp ("ppr@", gfc_current_block ()->name) == 0
2823 && strcmp (name, gfc_current_block ()->ns->proc_name->name) == 0)
2827 && strcmp (name, gfc_current_block ()->name) == 0
2828 && gfc_current_block ()
[all...]
H A Dmatch.c1723 || gfc_current_block () == NULL
1730 if (strcmp (name, gfc_current_block ()->name) != 0)
1733 name, gfc_current_block ()->name);
1772 || (gfc_current_block ()
1783 || gfc_current_block () == NULL
1790 if (strcmp (name, gfc_current_block ()->name) != 0)
1793 name, &where, gfc_current_block ()->name);
6114 if (!gfc_current_block ())
6123 if (strcmp (name, gfc_current_block ()->name) != 0)
6126 gfc_current_block ()
[all...]
H A Dsymbol.c2681 ns = gfc_current_block ()->f2k_derived;
3246 && gfc_current_block ()->attr.pdt_template)
3248 gfc_symbol *der = gfc_current_block ();
/netbsd-current/external/gpl3/gcc/dist/gcc/fortran/
H A Dparse.h61 #define gfc_current_block() (gfc_state_stack->sym) macro
H A Dparse.cc175 if (gfc_current_block ()->result->ts.type != BT_DERIVED)
315 && gfc_current_block ()->result->ts.kind == -1)
645 && gfc_current_block ()->result->ts.kind == -1)
842 && gfc_current_block ()->result->ts.kind == -1)
3093 gcc_assert (gfc_current_block ());
3097 if (gfc_current_block ()->attr.sequence)
3099 " section at %C", gfc_current_block ()->name);
3100 if (gfc_current_block ()->attr.is_bind_c)
3102 " section at %C", gfc_current_block ()->name);
3457 if (!gfc_add_component (gfc_current_block (), u
[all...]
H A Ddecl.cc2280 && current_ts.u.derived == gfc_current_block ()
2305 if (gfc_current_block ()->attr.pointer && (*as)->rank != 0)
2344 if (!gfc_add_component (gfc_current_block(), name, &c))
2412 gfc_find_symbol (c->name, gfc_current_block ()->f2k_derived,
2418 c->name, &gfc_current_block ()->declared_at);
2553 gfc_symbol *block = gfc_current_block ();
2912 && strcmp ("ppr@", gfc_current_block ()->name) == 0
2913 && strcmp (name, gfc_current_block ()->ns->proc_name->name) == 0)
2917 && strcmp (name, gfc_current_block ()->name) == 0
2918 && gfc_current_block ()
[all...]
H A Dmatch.cc1698 || gfc_current_block () == NULL
1705 if (strcmp (name, gfc_current_block ()->name) != 0)
1708 name, gfc_current_block ()->name);
1747 || (gfc_current_block ()
1758 || gfc_current_block () == NULL
1765 if (strcmp (name, gfc_current_block ()->name) != 0)
1768 name, &where, gfc_current_block ()->name);
6205 if (!gfc_current_block ())
6214 if (strcmp (name, gfc_current_block ()->name) != 0)
6217 gfc_current_block ()
[all...]
H A Dsymbol.cc2688 ns = gfc_current_block ()->f2k_derived;
3260 && gfc_current_block ()->attr.pdt_template)
3262 gfc_symbol *der = gfc_current_block ();

Completed in 326 milliseconds