[Bug fortran/80333] Namelist dtio write of array of class does not traverse the array

["jvdelisle at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80333

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Fri May 19 15:48:35 2017
New Revision: 248293

URL: https://gcc.gnu.org/viewcvs?rev=248293&root=gcc&view=rev
Log:
2017-05-19  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/80333
        * trans-io.c (nml_get_addr_expr): If we are dealing with class
        type data set tmp tree to get that address.
        (transfer_namelist_element): Set the array spec to point to the
        the class data.

2017-05-19  Paul Thomas  <pault@gcc.gnu.org>
            Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR fortran/80333
        * list_read.c (nml_read_obj): Compute pointer into class/type
        arrays from the nl->dim information. Update it for each iteration
        of the loop for the given object.

2017-05-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/80333
        * gfortran.dg/dtio_30.f03: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/dtio_30.f03
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-io.c
    trunk/gcc/testsuite/ChangeLog
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/list_read.c