------- Comment #1 from janus at gcc dot gnu dot org 2009-08-07 11:22 -------
The following is enough to make the test case work:
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c (revision 150529)
+++ gcc/fortran/resolve.c (working copy)
@@ -5591,7 +5591,7 @@
code->next = init_st;
}
- if (pointer && dimension == 0)
+ if (pointer || dimension == 0)
return SUCCESS;
/* Make sure the next-to-last reference node is an array specification. */
@@ -7883,15 +7883,11 @@
/* Constraints on deferred shape variable. */
if (sym->as == NULL || sym->as->type != AS_DEFERRED)
{
- if (sym->attr.allocatable)
+ if (sym->attr.allocatable && sym->attr.dimension)
{
- if (sym->attr.dimension)
- gfc_error ("Allocatable array '%s' at %L must have "
- "a deferred shape", sym->name, &sym->declared_at);
- else
- gfc_error ("Scalar object '%s' at %L may not be ALLOCATABLE",
- sym->name, &sym->declared_at);
- return FAILURE;
+ gfc_error ("Allocatable array '%s' at %L must have a deferred shape",
+ sym->name, &sym->declared_at);
+ return FAILURE;
}
if (sym->attr.pointer && sym->attr.dimension)
--
janus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |janus at gcc dot gnu dot org
|dot org |
Status|UNCONFIRMED |ASSIGNED
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2009-08-07 11:22:57
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40996
