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
