[Bug fortran/44614] [OOP] Wrongly importing a symbol into an interface without IMPORT

[janus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=44614

janus at gcc dot gnu.org changed:

   What|Removed |Added

   Target Milestone|--- |4.6.0

[Bug fortran/44614] [OOP] Wrongly importing a symbol into an interface without IMPORT

[burnus at gcc dot gnu dot org]

--- Comment #4 from burnus at gcc dot gnu dot org  2010-06-24 07:51 ---
Subject: Bug 44614

Author: burnus
Date: Thu Jun 24 07:51:22 2010
New Revision: 161310

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

PR fortran/44614
* decl.c (variable_decl): Fix IMPORT diagnostic for CLASS.

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

PR fortran/44614
* gfortran.dg/import8.f90: New.


Added:
trunk/gcc/testsuite/gfortran.dg/import8.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/decl.c
trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/44614] [OOP] Wrongly importing a symbol into an interface without IMPORT

[burnus at gcc dot gnu dot org]

--- Comment #5 from burnus at gcc dot gnu dot org  2010-06-24 08:01 ---
FIXED on the trunk (4.6).


-- 

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=44614

[Bug fortran/44614] [OOP] Wrongly importing a symbol into an interface without IMPORT

[burnus at gcc dot gnu dot org]

--- Comment #3 from burnus at gcc dot gnu dot org  2010-06-22 21:01 ---
Simple patch. Janus, if you have time, you can create a full patch out of it.

Index: decl.c
===
--- decl.c  (revision 161227)
+++ decl.c  (working copy)
@@ -1764,7 +1764,7 @@ variable_decl (int elem)
  specified in the procedure definition, except that the interface
  may specify a procedure that is not pure if the procedure is
  defined to be pure(12.3.2).  */
-  if (current_ts.type == BT_DERIVED
+  if ((current_ts.type == BT_DERIVED || current_ts.type == BT_CLASS)
gfc_current_ns-proc_name
gfc_current_ns-proc_name-attr.if_source == IFSRC_IFBODY
current_ts.u.derived-ns != gfc_current_ns)


-- 


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

[Bug fortran/44614] [OOP] Wrongly importing a symbol into an interface without IMPORT

[burnus at gcc dot gnu dot org]

--- Comment #1 from burnus at gcc dot gnu dot org  2010-06-21 16:44 ---
Cf. also PR 44616 for the ICE reported at the mailing list.


-- 

burnus at gcc dot gnu dot org changed:

   What|Removed |Added

 CC||janus at gcc dot gnu dot org


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

[Bug fortran/44614] [OOP] Wrongly importing a symbol into an interface without IMPORT

[janus at gcc dot gnu dot org]

--- Comment #2 from janus at gcc dot gnu dot org  2010-06-21 18:00 ---
Confirmed. Changing the CLASS statement into TYPE gives the correct error:

type(Connection) :: self
1
Error: the type of 'self' at (1) has not been declared within the interface


-- 

janus at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|UNCONFIRMED |NEW
 Ever Confirmed|0   |1
   Last reconfirmed|-00-00 00:00:00 |2010-06-21 18:00:04
   date||


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