[Bug fortran/44446] Error with protected pocedure pointer

[burnus at gcc dot gnu dot org]

--- Comment #2 from burnus at gcc dot gnu dot org  2010-06-08 06:37 ---
Subject: Bug 6

Author: burnus
Date: Tue Jun  8 06:37:32 2010
New Revision: 160424

URL: http://gcc.gnu.org/viewcvs?root=gccview=revrev=160424
Log:
2010-06-07  Tobias Burnus  bur...@net-b.de

PR fortran/6
* symbol.c (check_conflict): Move protected--external/procedure
check ...
* resolve.c (resolve_select_type): ... to the resolution stage.

2010-06-07  Tobias Burnus  bur...@net-b.de

PR fortran/6
* gfortran.dg/proc_ptr_27.f90: New.


Added:
trunk/gcc/testsuite/gfortran.dg/proc_ptr_27.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/resolve.c
trunk/gcc/fortran/symbol.c
trunk/gcc/testsuite/ChangeLog


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=6

[Bug fortran/44446] Error with protected pocedure pointer

[burnus at gcc dot gnu dot org]

--- Comment #3 from burnus at gcc dot gnu dot org  2010-06-08 07:02 ---
(In reply to comment #1)
 Untested:
And not working ;-)

Anyway, the bug is now FIXED on the trunk (4.6). Thanks for the report!


-- 

burnus at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|NEW |RESOLVED
 Resolution||FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=6

[Bug fortran/44446] Error with protected pocedure pointer

[burnus at gcc dot gnu dot org]

--- Comment #1 from burnus at gcc dot gnu dot org  2010-06-07 15:58 ---
Untested:

--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -567,8 +567,9 @@ check_conflict (symbol_attribute *attr, const char *name,
locus *where)
 }

   conf (is_protected, intrinsic)
-  conf (is_protected, external)
   conf (is_protected, in_common)
+  if (!attr-proc_pointer)
+conf (is_protected, external)

   conf (asynchronous, intrinsic)
   conf (asynchronous, external)


-- 

burnus at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|UNCONFIRMED |NEW
 Ever Confirmed|0   |1
   Keywords||rejects-valid
   Last reconfirmed|-00-00 00:00:00 |2010-06-07 15:58:33
   date||


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=6