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

[jvdelisle@verizon.net]

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;