------- Comment #4 from burnus at gcc dot gnu dot org 2009-01-14 21:26 ------- > @@ -2451 +2451 @@ gfc_conv_function_call (gfc_se * se, gfc > - && fsym->as->type != AS_ASSUMED_SHAPE; > + && fsym->as && fsym->as->type != AS_ASSUMED_SHAPE;
This might lead to wrong code (though I don't know what f77 means for C_LOC): I think that instead of fsym->as->type one needs to go through the refs to the component and do the check ...->as there. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38813
