[Bug fortran/24440] [4.0 regression] gfortran failed to build 187.facerec

[Paul Thomas]

hjl at lucon dot org wrote:

>------- Comment #1 from hjl at lucon dot org  2005-10-19 00:48 -------
>It is caused by
>
>http://gcc.gnu.org/ml/gcc-patches/2005-10/msg00433.html
>
>It doesn't check if sym->as is NULL before dereferencing it.
>
>
>  
>
You are absolutely correct - thanks.  I wll submit:

  if (sym->ts.type == BT_DERIVED
	&& sym->attr.dummy
	&& sym->attr.intent == INTENT_OUT
+ 	&& sym->as
	&& sym->as->type == AS_ASSUMED_SIZE)

 as being obvious.

Paul