[Bug fortran/42274] [fortran-dev Regression] ICE: segmentation fault

[janus at gcc dot gnu dot org]

------- Comment #6 from janus at gcc dot gnu dot org  2009-12-04 17:06 -------
(In reply to comment #5)
> #3  0x00000000004fa344 in mio_component (c=0x154b880) at
> /home/tob/projects/fortran-dev/gcc/fortran/module.c:2362

The component here is 'is_null', and the parent symbol is
'vtype$psb_d_base_sparse_mat'. In this context, the component 'is_null' refers
to the PPC of the vtype, not the TBP of the original type.

I think the problem is that c->tb->ppc is not set correctly for the PPCs inside
vtype. If one looks at psb_base_mat_mod.mod, one finds:

(55 'is_null'
(LOGICAL 4 0 0 LOGICAL ()) () (PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC
DECL UNKNOWN 0 0 EXTERNAL FUNCTION PROCEDURE PROC_POINTER) PRIVATE (
NULL (UNKNOWN 0 0 0 UNKNOWN ()) 0) 56 (57) (PUBLIC OVERRIDABLE PASS
SPECIFIC NO_PPC 'a' 0 30))

Note the 'NO_PPC'! Although this clearly *is* a PPC, as indicated by
'PROC_POINTER', the tb.ppc attribute is missing.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42274