https://gcc.gnu.org/bugzilla/show_bug.cgi?id=57117
--- Comment #12 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- > That's odd, it does fine with reshape on my machine ****sigh**** Are you sure to have attached the right patch? > Could you send me the error, please? Compiling the test in comment 5 gives pr57117_3.f90:12:0: allocate(x(3,3), source=reshape(z, (/ 3,3 /))) 1 internal compiler error: Segmentation fault: 11 The backtrace is #0 0x000000010010d6fc in vptr_field_get(tree_node*, int) () #1 0x0000000100114003 in gfc_copy_class_to_class(tree_node*, tree_node*, tree_node*, bool) () #2 0x000000010016615e in gfc_trans_allocate(gfc_code*) () #3 0x00000001000d7798 in trans_code(gfc_code*, tree_node*) () #4 0x000000010010a0b6 in gfc_generate_function_code(gfc_namespace*) () #5 0x000000010008cd4c in gfc_parse_file() () #6 0x00000001000d407b in gfc_be_parse_file() () #7 0x0000000100ae893a in compile_file() () #8 0x0000000100fbafcc in toplev::main(int, char**) () #9 0x0000000100fbc989 in main ()
