http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40973
--- Comment #6 from Tobias Burnus 2012-04-15
05:52:58 UTC ---
Author: burnus
Date: Sun Apr 15 05:52:51 2012
New Revision: 186464
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=186464
Log:
2012-04-14 Tobias Burnus
PR fortran/52
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40973
Tobias Burnus changed:
What|Removed |Added
Status|UNCONFIRMED |RESOLVED
Resolution|
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40973
--- Comment #4 from Tobias Burnus 2012-04-08
07:15:12 UTC ---
Author: burnus
Date: Sun Apr 8 07:15:01 2012
New Revision: 186223
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=186223
Log:
2012-04-08 Tobias Burnus
PR fortran/52
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40973
Tobias Burnus changed:
What|Removed |Added
CC||burnus at gcc dot gnu.org
--- Comment #3
--- Comment #2 from burnus at gcc dot gnu dot org 2010-02-20 22:08 ---
Marking it as STATIC will become difficult with SUBMODULES as one has several
.o files belonging to one common MODULE, i.e. the function shall be accessible
by all submodules, which are scattered over several .o files
--- Comment #1 from dfranke at gcc dot gnu dot org 2009-12-04 23:28 ---
How about this (somewhat constructed) example:
! interface module, file (a)
MODULE M
PRIVATE :: two
CONTAINS
SUBROUTINE one(a)
integer :: a
END SUBROUTINE one
integer FUNCTION two()
END FUNCTION two
EN
