#include <perms.h>

                                                                //      1  ! I have tried to run imp23b through the test suite, and I have come up
                                                                //      2  ! with a problem concerning predicates. When you try to use a predicate
                                                                //      3  ! in an %if statement the compiler faults you with a "faulty form" error.
                                                                //      4  ! The program below demonstrates this. The compiler listing follows.
                                                                //      5  %begin
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      6  
                                                                //      7     %Predicate  Even
int /*Boolean*/ EVEN( void )
{
                                                                //      8        %True
/* Remove %on %event handler here if present for this block */
return 1;
                                                                //      9     %End   
} // End of block EVEN at level 2
                                                                //     10  
                                                                //     11     write(1,1) %if even
if (!(EVEN())) goto L_0002;
_imp_WRITE(1, 1);
L_0002:;
                                                                //     12  
                                                                //     13  %End %of %Program
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
// End of file