Attachment 931658 Details for Bug 1134560 – Patch and testcase

[patch] Patch and testcase

cpns.patch (text/plain), 1.26 KB, created by Fritz Reese on 2014-08-27 19:13:52 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Fritz Reese

Created: 2014-08-27 19:13:52 UTC

Size: 1.26 KB

patch

obsolete

>
>diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
>index 4048ac9..7b3c59a 100644
>--- a/gcc/fortran/decl.c
>+++ b/gcc/fortran/decl.c
>@@ -1904,8 +1904,9 @@ variable_decl (int elem)
>     }
> 
>   /*  If this symbol has already shown up in a Cray Pointer declaration,
>+      and this is not a component declaration,
>       then we want to set the type & bail out.  */
>-  if (gfc_option.flag_cray_pointer)
>+  if (gfc_option.flag_cray_pointer && gfc_current_state () != COMP_DERIVED)
>     {
>       gfc_find_symbol (name, gfc_current_ns, 1, &sym);
>       if (sym != NULL && sym->attr.cray_pointee)
>diff --git a/gcc/testsuite/gfortran.dg/cray_pointers_10.f90 b/gcc/testsuite/gfortran.dg/cray_pointers_10.f90
>new file mode 100644
>index 0000000..fcc0132
>--- /dev/null
>+++ b/gcc/testsuite/gfortran.dg/cray_pointers_10.f90
>@@ -0,0 +1,22 @@
>+! { dg-do compile }
>+! { dg-options "-fcray-pointer" }
>+!
>+! Since the introduction of Cray pointers in 4.1.0 as late as 4.8.3,
>+! component declarations within derived types would overwrite the typespec of 
>+! variables with the same name who were Cray pointees.
>+implicit none
>+
>+type t1
>+  integer i
>+end type t1
>+type(t1) x
>+
>+pointer (x_ptr, x)
>+
>+type t2
>+  real x ! should not overwrite x's type
>+end type t2
>+
>+x%i = 0 ! should see no error here
>+
>+end

Actions: View | Diff

Attachments on bug 1134560: 931658