33 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Make sure arithmetic if expressions are non-complex numeric exprs.3 4INTEGER I5COMPLEX Z6LOGICAL L7INTEGER, DIMENSION (2) :: B8 9if ( I ) 100, 200, 30010100 CONTINUE11200 CONTINUE12300 CONTINUE13 14!ERROR: ARITHMETIC IF expression must not be a COMPLEX expression15if ( Z ) 101, 201, 30116101 CONTINUE17201 CONTINUE18301 CONTINUE19 20!ERROR: ARITHMETIC IF expression must be a numeric expression21if ( L ) 102, 202, 30222102 CONTINUE23202 CONTINUE24302 CONTINUE25 26!ERROR: ARITHMETIC IF expression must be a scalar expression27if ( B ) 103, 203, 30328103 CONTINUE29203 CONTINUE30303 CONTINUE31 32END33