Enabled some more warnings and cheap diagnostics. Warning 7601 is erroneously issues here, because it is compliant F2008 to allow internal procedures as actual arguments.