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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |diagnostic
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2013-11-17
                 CC|                            |janus at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
Confirmed with 4.7, 4.8 and trunk.

Apparently the symbol gets a ts.type of BT_INTEGER somewhere (indepedent of the
type of 'nargs'). It also happens for the following variant:

  implicit none
  Intrinsic :: command_argument_count
  print *, command_argument_count()
End

Doing the same thing with a different intrinsic like 'cos' does not give the
warning:

  Intrinsic :: cos
  print *, cos(0.)
End

Reply via email to