Passing different kind integers

Hi,

When I compile the attached program, the following messages are displayed:

warning #6075: The data type of the actual argument does not match the definition.   [A]
warning #5448: In the call to SUB1, actual argument #1 does not match the type and kind of the corresponding dummy argument.

Does anyone know why this is just a warning and not an error?  I made a similar test where I passed real variables that had a different kind, and there was an error as expected.

Roman