------- Comment #6 from jv244 at cam dot ac dot uk 2010-02-14 19:27 ------- (In reply to comment #5) > I had to exclude > dummies but I now do not recall why. I'll look into it.
Hi Paul, tested your patch at http://gcc.gnu.org/ml/fortran/2010-02/msg00106.html. However, this ICEs with: Program received signal SIGSEGV, Segmentation fault. 0x0000000000550816 in gfc_conv_array_parameter (se=0x7fff19b82f90, expr=0x13af600, ss=0x13b1e20, g77=1, fsym=0x0, proc_name=0x7f450fd48ee8 "newuob", size=0x0) at /data03/vondele/gcc_trunk/gcc/gcc/fortran/trans-array.c:5550 5550 if (contiguous && g77 && !this_array_result (gdb) list 5545 se->expr = gfc_conv_array_data (tmp); 5546 return; 5547 } 5548 } 5549 5550 if (contiguous && g77 && !this_array_result 5551 && expr->symtree->n.sym->as->type != AS_ASSUMED_SHAPE) 5552 { 5553 gfc_conv_expr_descriptor (se, expr, ss); 5554 if (expr->ts.type == BT_CHARACTER) (gdb) q on the following reduced testcase. MODULE powell INTEGER, PARAMETER :: dp=8 TYPE opt_state_type REAL(dp), DIMENSION(:), POINTER :: w END TYPE opt_state_type CONTAINS SUBROUTINE newuoa (n,x,optstate) TYPE(opt_state_type) :: optstate CALL newuob (optstate%w(ixb:),optstate%w(ixo:),& optstate%w(ivl:),optstate%w(iw:),optstate) END SUBROUTINE newuoa END MODULE powell -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36932
