------- 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