topic Re: Using optional arguments in Software Archive

Using optional arguments

intelgg — Tue, 19 Mar 2002 02:15:44 GMT

I am getting compiler warning
"Routine PARSETAG called with different number and/or type of
actual arguments in earlier call - C attribute required if intended"
on a situation like the following:

integer function f(a, b, c, d) result(u)
integer a
integer b
integer c
integer, optional :: d
u = 0
end function f

integer function g() result(v)
integer, external :: f
v = f(1,2,3)
end function g

integer function h() result(w)
integer, external :: f
w = f(1,2,3,4)
end function h

The issue seems to be in the proper usage of optional arguments.
How do I resolve this?

Re: Using optional arguments

Steven_L_Intel1 — Tue, 19 Mar 2002 02:27:56 GMT

If a routine has OPTIONAL arguments, an explicit interface must be visible to the caller.

Steve

Re: Using optional arguments

james1 — Tue, 19 Mar 2002 16:53:29 GMT

Add a trailing comma on the call in g() so that your number of placeholders is consistent.

James