------- Comment #6 from mikael at gcc dot gnu dot org 2008-12-22 18:54 ------- (In reply to comment #5) Generated code:
get_unit_set_ch (struct varying_string * separator) { if (separator->chars.data != 0B) { __builtin_free (separator->chars.data); } separator->chars.data = 0B; } test_iso () { static integer(kind=4) options.0[8] = {68, 255, 0, 0, 0, 1, 0, 1}; static void get_unit_set_ch (struct varying_string *); _gfortran_set_options (8, (void *) &options.0); get_unit_set_ch (0B); } -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38602