fortran/

2005-01-30  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/24266
        * trans-io.c (set_internal_unit): Check the rank of the
        expression node itself instead of its symbol.

testsuite/
2005-01-30  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/24266
        * gfortran.dg/arrayio_derived_2.f90: New.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110412 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4eb14b8..bcdd799 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-01-30  Erik Edelmann  <eedelman@gcc.gnu.org>
+
+       PR fortran/24266
+       * trans-io.c (set_internal_unit): Check the rank of the
+       expression node itself instead of its symbol.
+
 2006-01-29  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/18578

diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 24b7bc9..db1a481 100644 (file)
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -599,7 +599,7 @@ set_internal_unit (stmtblock_t * block, tree var, gfc_expr * e)
     }
 
   /* Character array.  */
-  else if (e->symtree && (e->symtree->n.sym->as->rank > 0))
+  else if (e->rank > 0)
     {
       se.ss = gfc_walk_expr (e);
 

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1aea281..5c8e59b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-30  Erik Edelmann  <eedelman@gcc.gnu.org>
+
+       PR fortran/24266
+       * gfortran.dg/arrayio_derived_2.f90: New.
+
 2006-01-30  Carlos O'Donell  <carlos@codesourcery.com>
 
        * gcc.dg/unsigned-long-compare.c: New test.

diff --git a/gcc/testsuite/gfortran.dg/arrayio_derived_2.f90 b/gcc/testsuite/gfortran.dg/arrayio_derived_2.f90
new file mode 100644 (file)
index 0000000..5ebe602
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/arrayio_derived_2.f90
@@ -0,0 +1,17 @@
+! { dg-do compile }
+! PR 24266: IO to/from arrays that are components of derived types.
+program main
+  implicit none
+
+  type ice
+    character(len=80) :: mess(3)
+  end type ice
+  type(ice) :: tp
+  integer :: i
+  character(len=80) :: mess
+
+  write(tp%mess,*) "message"
+  read(tp%mess,*) mess
+  print *, mess
+
+end program main