[Bug fortran/38065] private/public confusion with a contained function

[jv244 at cam dot ac dot uk]

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


-- 

jv244 at cam dot ac dot uk changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |32834
              nThis|                            |
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |rejects-valid
      Known to fail|                            |4.4.0
   Last reconfirmed|0000-00-00 00:00:00         |2008-11-11 13:28:28
               date|                            |
            Summary|bug5                        |private/public confusion
                   |                            |with a contained function


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