[Bug fortran/45889] Regression with I/O of element of allocatable array in derived type

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

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45889

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |jvdelisle at gcc dot
                   |                            |gnu.org

--- Comment #2 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> 2010-10-05 13:34:21 UTC ---
this is in resolve.c. We will have to check the standard on this.

  if (ts->type == BT_DERIVED)
    {
      /* Check that transferred derived type doesn't contain POINTER
     components.  */
      if (ts->u.derived->attr.pointer_comp)
    {
      gfc_error ("Data transfer element at %L cannot have "
             "POINTER components", &code->loc);
      return;
    }

      if (ts->u.derived->attr.alloc_comp)
    {
      gfc_error ("Data transfer element at %L cannot have "
             "ALLOCATABLE components", &code->loc);
      return;
    }

      if (derived_inaccessible (ts->u.derived))
    {
      gfc_error ("Data transfer element at %L cannot have "
             "PRIVATE components",&code->loc);
      return;
    }
    }