[patch, committed] PR37707 Namelist read of array of derived type incorrect

[jvdelisle]

Committed revision 140995 as obvious, or at least simple.

Index: io/list_read.c
===================================================================
--- io/list_read.c (revision 140900)
+++ io/list_read.c (working copy)
@@ -2839,6 +2839,9 @@ get_name:
        goto nml_err_ret;
      }

+  if (first_nl != NULL && first_nl->var_rank > 0)
+    nl = first_nl;
+
    if (nml_read_obj (dtp, nl, 0, pprev_nl, nml_err_msg,
nml_err_msg_size,
     clow, chigh) == FAILURE)
      goto nml_err_ret;