#include <perms.h>
void FRED(void) /* See
                   https://gcc.gnu.org/onlinedocs/gcc-4.7.2/gcc/Function-Attributes.html
                 */
{
  _imp_enter();
  extern _imp_string GETNAME(void);
  extern void PROC(_imp_string * ONE);
  PROC(GETNAME());
  _imp_leave();
}
_imp_string GETNAME(void) {
  _imp_enter();
  return (_imp_str_literal("codswallop"));
  _imp_leave();
}
void PROC(_imp_string *ONE) {
  _imp_enter();
  if (ONE == _imp_str_literal("codswallop"))
    PRINTSTRING(_imp_str_literal("TestOK"));
  else {
    PRINTSTRING(_imp_join(
        _imp_str_literal("Bug found expected=codswallop actual="), ONE));
  }
  NEWLINES(2);
  _imp_leave();
}