XL Fortran Enterprise Edition for AIX : User's Guide - IBM

-qport Option
Syntax
-qport[=suboptions]| -qnoport
PORT[(suboptions)]| NOPORT
The -qport compiler option increases flexibility when porting programs to XL
Fortran, providing a number of options to accommodate other Fortran language
extensions. A particular suboption will always function independently of other
-qport and compiler options.
Arguments
hexint | nohexint
If you specify this option, typeless constant hexadecimal strings are
converted to integers when passed as an actual argument to the
INT intrinsic function. Typeless constant hexadecimal strings not
passed as actual arguments to INT remain unaffected.
mod | nomod Specifying this option relaxes existing constraints on the MOD
intrinsic function, allowing two arguments of the same data type
parameter to be of different kind type parameters. The result will
be of the same type as the argument, but with the larger kind type
parameter value.
nullarg | nonullarg
For an external or internal procedure reference, specifying this
option causes the compiler to treat an empty argument, which is
delimited by a left parenthesis and a comma, two commas, or a
comma and a right parenthesis, as a null argument. This suboption
has no effect if the argument list is empty.
Examples of empty arguments are:
call foo(,,z)
call foo(x,,z)
call foo(x,y,)
The following program includes a null argument.
Fortran program:
program nularg
real(4) res/0.0/
integer(4) rc
integer(4), external :: add
rc = add(%val(2), res, 3.14, 2.18,) ! The last argument is a
! null argument.
if (rc == 0) then
print *, "res = ", res
else
print *, "number of arguments is invalid."
endif
end program
C program:
int add(int a, float *res, float *b, float *c, float *d)
{
int ret = 0;
if (a == 2)
*res = *b + *c;
XL Fortran Compiler-Option Reference 217