]> git.ipfire.org Git - thirdparty/gcc.git/blobdiff - libgfortran/io/format.c
Update copyright years.
[thirdparty/gcc.git] / libgfortran / io / format.c
index 927e3785a34bb65138d59d3c119d5b9281b19ef2..ac92acc175c28075162e0ad6cee4aa76251ad216 100644 (file)
@@ -1,4 +1,4 @@
-/* Copyright (C) 2002-2021 Free Software Foundation, Inc.
+/* Copyright (C) 2002-2024 Free Software Foundation, Inc.
    Contributed by Andy Vaught
    F2003 I/O support contributed by Jerry DeLisle
 
@@ -269,8 +269,7 @@ free_format_data (format_data *fmt)
        fnp->format != FMT_NONE; fnp++)
     if (fnp->format == FMT_DT)
        {
-         if (GFC_DESCRIPTOR_DATA(fnp->u.udf.vlist))
-           free (GFC_DESCRIPTOR_DATA(fnp->u.udf.vlist));
+         free (GFC_DESCRIPTOR_DATA(fnp->u.udf.vlist));
          free (fnp->u.udf.vlist);
        }