IGNORE_TKR (IBM extension)
Purpose
The IGNORE_TKR directive allows the compiler to ignore the type, kind, and rank of dummy arguments when checking the interfaces of specific procedure calls, and when checking and resolving generic interfaces.
IGNORE_TKR allows you to port code from other Fortran compilers that support the IGNORE_TKR directive.
Syntax
where dummy_args_list is a comma separated list of dummy argument names.
Rules
Dummy arguments that are allocatable, Fortran 90 pointers, assumed-shape arrays, or polymorphic must not be specified in the IGNORE_TKR directive.
IIGNORE_TKR may only appear in the body of an interface block and may specify dummy argument names only. IGNORE_TKR may appear before or after the declarations of the dummy arguments it specifies.
If dummy argument names are specified, IGNORE_TKR applies only those particular dummy arguments. If no dummy argument names are specified IGNORE_TKR applies to all dummy arguments except those that are allocatable objects, Fortran 90 pointers, assumed-shape arrays, or polymorphic entities.
Examples
interface
subroutine sub1(a, b)
integer(4) :: a
integer(4) :: b
!ibm* ignore_tkr b
end subroutine
end interface
! valid calls
call sub1(1, 'abc') ! type ignored
call sub1(1, 2_8) ! kind ignored
call sub1(1, (/ 2 /)) ! rank ignored
