------- Comment #10 from burnus at gcc dot gnu dot org 2010-02-17 07:32 -------
(NAG f95 v5.1 and g95 reject it unconditionally; ifort allows it by default but
rejects it with -stand f95 or -stand f03.)
I think one should really send a interpretation request.
A patch would be the following. What about POINTERs?
Index: symbol.c
===================================================================
--- symbol.c (Revision 156815)
+++ symbol.c
@@ -389,2 +389,10 @@ check_conflict (symbol_attribute *attr,
+ if (attr->in_namelist && attr->allocatable)
+ {
+ a1 = in_namelist;
+ a2 = allocatable;
+ standard = GFC_STD_F2003;
+ goto conflict_std;
+ }
+
/* Check for attributes not allowed in a BLOCK DATA. */
@@ -493,3 +501,2 @@ check_conflict (symbol_attribute *attr,
conf (in_namelist, pointer);
- conf (in_namelist, allocatable);
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |burnus at gcc dot gnu dot
| |org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43062
