Line
Link Here
|
0 |
-- gcc/fortran/trans-array.c.orig 2006-08-03 22:49:52 +0300 |
0 |
++ gcc/fortran/trans-array.c 2006-08-03 22:50:00 +0300 |
Lines 4485-4491
Link Here
|
4485 |
/* Get the descriptor type. */ |
4485 |
/* Get the descriptor type. */ |
4486 |
type = TREE_TYPE (sym->backend_decl); |
4486 |
type = TREE_TYPE (sym->backend_decl); |
4487 |
gcc_assert (GFC_DESCRIPTOR_TYPE_P (type)); |
4487 |
if (!GFC_DESCRIPTOR_TYPE_P (type)) |
|
|
4488 |
{ |
4489 |
/* If the backend_decl is not a descriptor, we must have a pointer |
4490 |
to one. */ |
4491 |
descriptor = build_fold_indirect_ref (sym->backend_decl); |
4492 |
type = TREE_TYPE (descriptor); |
4493 |
gcc_assert (GFC_DESCRIPTOR_TYPE_P (type)); |
4494 |
} |
4488 |
/* NULLIFY the data pointer. */ |
4495 |
/* NULLIFY the data pointer. */ |
4489 |
gfc_conv_descriptor_data_set (&fnblock, descriptor, null_pointer_node); |
4496 |
gfc_conv_descriptor_data_set (&fnblock, descriptor, null_pointer_node); |