1! RUN: %S/test_errors.sh %s %t %f18 2! Make sure arithmetic if expressions are non-complex numeric exprs. 3 4INTEGER I 5COMPLEX Z 6LOGICAL L 7INTEGER, DIMENSION (2) :: B 8 9if ( I ) 100, 200, 300 10100 CONTINUE 11200 CONTINUE 12300 CONTINUE 13 14!ERROR: ARITHMETIC IF expression must not be a COMPLEX expression 15if ( Z ) 101, 201, 301 16101 CONTINUE 17201 CONTINUE 18301 CONTINUE 19 20!ERROR: ARITHMETIC IF expression must be a numeric expression 21if ( L ) 102, 202, 302 22102 CONTINUE 23202 CONTINUE 24302 CONTINUE 25 26!ERROR: ARITHMETIC IF expression must be a scalar expression 27if ( B ) 103, 203, 303 28103 CONTINUE 29203 CONTINUE 30303 CONTINUE 31 32END 33