------- Comment #6 from hjl at lucon dot org 2006-02-01 21:20 -------
I got
Breakpoint 3, gfc_sym_type (sym=0xb5b800)
at /net/gnu-13/export/gnu/src/gcc-last/gcc/gcc/fortran/trans-types.c:1301
1301 type = gfc_typenode_for_spec (&sym->ts);
$8 = {name = 0xb51b46 "present", module = 0x0, declared_at = {
nextc = 0xb53bbf "(baz)) then", lb = 0xb53b90}, ts = {type = BT_UNKNOWN,
kind = 0, derived = 0x0, cl = 0x0}, attr = {allocatable = 0,
dimension = 0, external = 0, intrinsic = 0, optional = 0, pointer = 0,
save = 0, target = 0, dummy = 0, result = 0, assign = 0, data = 0,
use_assoc = 0, in_namelist = 0, in_common = 0, in_equivalence = 0,
function = 1, subroutine = 0, generic = 0, implicit_type = 0, untyped = 0,
sequence = 0, elemental = 0, pure = 0, recursive = 0, unmaskable = 0,
masked = 0, contained = 0, noreturn = 0, entry = 0, entry_master = 0,
mixed_entry_master = 0, always_explicit = 0, referenced = 1,
is_main_program = 0, access = ACCESS_UNKNOWN, intent = INTENT_UNKNOWN,
flavor = FL_PROCEDURE, if_source = IFSRC_UNKNOWN, proc = PROC_UNKNOWN,
cray_pointer = 0, cray_pointee = 0}, generic = 0x0,
component_access = ACCESS_UNKNOWN, formal = 0x0, formal_ns = 0x0,
value = 0x0, as = 0x0, result = 0xb5b800, components = 0x0,
cp_pointer = 0x0, common_next = 0x0, common_head = 0x0, dummy_order = 0,
namelist = 0x0, namelist_tail = 0x0, old_symbol = 0x0, tlink = 0x0,
mark = 1, new = 0, equiv_built = 0, refs = 1, ns = 0xb5b170,
---Type <return> to continue, or q <return> to quit---
backend_decl = 0x0}
(gdb)
Is "present" an intrinsic? Why isn't it marked so?
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26064
