2010-05-06 Tobias Burnus <burnus@net-b.de>

        PR fortran/43985
        * trans-types.c (gfc_sym_type): Mark Cray pointees as
        GFC_POINTER_TYPE_P.

2010-05-06  Tobias Burnus  <burnus@net-b.de>

        PR fortran/43985
        * gfortran.dg/gomp/crayptr5.f90: New test case.

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5b6b42f..8580997 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,7 +1,13 @@
+2010-05-0  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/43985
+       * trans-types.c (gfc_sym_type): Mark Cray pointees as
+       GFC_POINTER_TYPE_P.
+
 2010-05-05  Daniel Franke  <franke.daniel@gmail.com>
 
-        * resolve.c (traverse_data_list): Rephrase error message for
-        non-constant bounds in data-implied-do.
+       * resolve.c (traverse_data_list): Rephrase error message for
+       non-constant bounds in data-implied-do.
 
 2010-05-05  Daniel Franke  <franke.daniel@gmail.com>
 

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 31a250d..dca19ce 100644 (file)
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -1793,6 +1793,9 @@ gfc_sym_type (gfc_symbol * sym)
                                                restricted);
              byref = 0;
            }
+
+         if (sym->attr.cray_pointee)
+           GFC_POINTER_TYPE_P (type) = 1;
         }
       else
        {
@@ -1808,7 +1811,7 @@ gfc_sym_type (gfc_symbol * sym)
     {
       if (sym->attr.allocatable || sym->attr.pointer)
        type = gfc_build_pointer_type (sym, type);
-      if (sym->attr.pointer)
+      if (sym->attr.pointer || sym->attr.cray_pointee)
        GFC_POINTER_TYPE_P (type) = 1;
     }
 

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0bd0219..686fc38 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-06  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/43985
+       * gfortran.dg/gomp/crayptr5.f90: New test case.
+
 2010-05-05  Jason Merrill  <jason@redhat.com>
 
        PR debug/43370