------- Additional Comments From fxcoudert at gcc dot gnu dot org  2005-06-18 
18:42 -------
Confirmed, we should not issue such warning. Here is a (slightly) reduced 
testcase:

MODULE procedures
   PUBLIC :: test
   PRIVATE :: test2
   INTERFACE test
      MODULE PROCEDURE test2
   END INTERFACE test
CONTAINS
   PURE INTEGER FUNCTION test2 ()
      test2 = 0
   END FUNCTION test2
END MODULE procedures

MODULE actions
   USE procedures
CONTAINS
   SUBROUTINE show
      print *, test ()
   END SUBROUTINE show
END MODULE actions

PROGRAM module_procedure_1
   USE actions
   CALL show
END PROGRAM module_procedure_1

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-06-18 18:42:50
               date|                            |


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

Reply via email to