From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 21049 invoked by alias); 1 Feb 2006 21:20:49 -0000 Received: (qmail 21032 invoked by uid 48); 1 Feb 2006 21:20:44 -0000 Date: Wed, 01 Feb 2006 21:20:00 -0000 Message-ID: <20060201212044.21031.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/26064] 4.1 regression introduced with patch for bug 18197 In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "hjl at lucon dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2006-02/txt/msg00103.txt.bz2 List-Id: ------- 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 to continue, or q 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