public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/36383]  New: -std=95: Reject public procedure with private derv. type argument
@ 2008-05-29 21:19 burnus at gcc dot gnu dot org
  2009-03-29  8:25 ` [Bug fortran/36383] " fxcoudert at gcc dot gnu dot org
  0 siblings, 1 reply; 2+ messages in thread
From: burnus at gcc dot gnu dot org @ 2008-05-29 21:19 UTC (permalink / raw)
  To: gcc-bugs

See:
http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/12ac1683f64da0b8

 ! type t_a is public; type t_b is private
 interface operator(+)
   module procedure add_t_a, add_t_b
 end interface
contains
 pure function add_t_a(a1,a2) result(a)
   type(t_a) :: a
   type(t_a), intent(in) :: a1, a2
 pure function add_t_b(b1,b2) result(b)
   type(t_b) :: b
   type(t_b), intent(in) :: b1, b2 

Using NAG the output is:
  Extension: Dummy B1 of ADD_T_B in generic + exposes PRIVATE type T_B

(Extension == Fortran 2003.)


-- 
           Summary: -std=95: Reject public procedure with private derv. type
                    argument
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Keywords: diagnostic
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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


^ permalink raw reply	[flat|nested] 2+ messages in thread
* [Bug fortran/36383] -std=95: Reject public procedure with private derv. type argument
  2008-05-29 21:19 [Bug fortran/36383] New: -std=95: Reject public procedure with private derv. type argument burnus at gcc dot gnu dot org
@ 2009-03-29  8:25 ` fxcoudert at gcc dot gnu dot org
  0 siblings, 0 replies; 2+ messages in thread
From: fxcoudert at gcc dot gnu dot org @ 2009-03-29  8:25 UTC (permalink / raw)
  To: gcc-bugs



-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Severity|normal                      |minor
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |accepts-invalid
   Last reconfirmed|0000-00-00 00:00:00         |2009-03-29 08:25:06
               date|                            |


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


^ permalink raw reply	[flat|nested] 2+ messages in thread
end of thread, other threads:[~2009-03-29  8:25 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-05-29 21:19 [Bug fortran/36383] New: -std=95: Reject public procedure with private derv. type argument burnus at gcc dot gnu dot org
2009-03-29  8:25 ` [Bug fortran/36383] " fxcoudert at gcc dot gnu dot org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).