------- Comment #5 from hjl at lucon dot org 2006-05-18 22:21 ------- There are
2042 /* Zero the first stride to indicate a temporary. */ 2043 tmp = gfc_conv_descriptor_stride (info->descriptor, gfc_rank_cst[0]); 2044 gfc_add_modify_expr (&se->pre, tmp, 2045 convert (TREE_TYPE (tmp), integer_zero_node)); in gfc_conv_function_call. Later transpose is called on it. But we never restore the first stride. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27662