--- Comment #14 from burnus at gcc dot gnu dot org 2008-11-12 18:39 ---
Subject: Bug 38065
Author: burnus
Date: Wed Nov 12 18:38:08 2008
New Revision: 141798
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=141798
Log:
2008-11-12 Tobias Burnus <[EMAIL PROTECTED]>
PR fort
--- Comment #13 from burnus at gcc dot gnu dot org 2008-11-12 07:02 ---
FIXED on the trunk (4.4.0).
--
burnus at gcc dot gnu dot org changed:
What|Removed |Added
--- Comment #12 from burnus at gcc dot gnu dot org 2008-11-12 07:00 ---
Subject: Bug 38065
Author: burnus
Date: Wed Nov 12 06:59:33 2008
New Revision: 141780
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=141780
Log:
2008-11-12 Tobias Burnus <[EMAIL PROTECTED]>
PR for
--- Comment #11 from clerman at fuse dot net 2008-11-11 14:35 ---
Subject: Re: private/public confusion with a contained
function
Hello,
Thank you for responding so promptly.
Yes, I see what's going on now. It wasn't apparent to me that my function
CreateLine was incorrectly acq
--- Comment #10 from burnus at gcc dot gnu dot org 2008-11-11 14:35 ---
bug5a.tgz compiled successfully with the patch in comment 9.
--
burnus at gcc dot gnu dot org changed:
What|Removed |Added
-
--- Comment #9 from burnus at gcc dot gnu dot org 2008-11-11 14:28 ---
(In reply to comment #6)
> reduced:
>
> SUBROUTINE S1
> CONTAINS
>TYPE(T1) FUNCTION F1()
>END FUNCTION F1
> END SUBROUTINE S1
Error: PUBLIC function 'f1' at (1) cannot be of PRIVATE type 't1'
gfortran
--- Comment #8 from jv244 at cam dot ac dot uk 2008-11-11 14:14 ---
(In reply to comment #7)
> As best I can see, your reduction of the problem is not correct; in it
> subroutine S1 should be private, not public.
I don't think so. See your code, S1 ~ GeomMTF, which is public. The prob
--- Comment #7 from clerman at fuse dot net 2008-11-11 13:46 ---
Subject: Re: private/public confusion with a contained
function
Hello,
As best I can see, your reduction of the problem is not correct; in it
subroutine S1 should be private, not public.
Yours truly,
Norm Clerman
-
--- Comment #6 from jv244 at cam dot ac dot uk 2008-11-11 13:28 ---
reduced:
MODULE M1
IMPLICIT NONE
PRIVATE
TYPE T1
INTEGER :: I1
END TYPE T1
PUBLIC :: S1
CONTAINS
SUBROUTINE S1
CONTAINS
TYPE(T1) FUNCTION F1()
END FUNCTION F1
END SUBROUTINE S1
END MODULE M1
-
