===================================================================
*************** variable_decl (int elem)
}
if (not_constant)
! {
gfc_error ("Explicit shaped array with nonconstant bounds at %C");
m = MATCH_ERROR;
goto cleanup;
}
if (not_constant)
! {
gfc_error ("Explicit shaped array with nonconstant bounds at %C");
m = MATCH_ERROR;
goto cleanup;
*************** variable_decl (int elem)
gfc_find_symbol (name, gfc_current_ns, 1, &sym);
if (sym != NULL && sym->attr.cray_pointee)
{
- sym->ts.type = current_ts.type;
- sym->ts.kind = current_ts.kind;
- sym->ts.u.cl = cl;
- sym->ts.u.derived = current_ts.u.derived;
- sym->ts.is_c_interop = current_ts.is_c_interop;
- sym->ts.is_iso_c = current_ts.is_iso_c;
m = MATCH_YES;
/* Check to see if we have an array specification. */
if (cp_as != NULL)
gfc_find_symbol (name, gfc_current_ns, 1, &sym);
if (sym != NULL && sym->attr.cray_pointee)
{
m = MATCH_YES;
+ if (!gfc_add_type (sym, ¤t_ts, &gfc_current_locus))
+ {
+ m = MATCH_ERROR;
+ goto cleanup;
+ }
/* Check to see if we have an array specification. */
if (cp_as != NULL)
===================================================================
***************
+ ! { dg-do compile }
+ ! { dg-options "-fcray-pointer" }
+ !
+ ! Test the fix for PR36497 in which there was no error for the second
+ ! declaration of 'x'.
+ !
+ ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+ !
+ module test
+ integer(8) ipt
+ integer z(2), x
+ pointer (ipt, x)
+ end module
+
+ program bar
+ use test ! { dg-error "conflicts with symbol" }
+ integer x ! { dg-error "conflicts with symbol" }
+ ipt = loc(z(1))
+ x = 1
+ ipt = loc(z(2))
+ x = 3
+ if (any (z .ne. [1,3])) stop 1
+ end