xref: /llvm-project/flang/test/Semantics/if_arith04.f90 (revision 6c1ac141d3c98af9738bc77fcb55602cbff7751f) 
1! RUN: %python %S/test_errors.py %s %flang_fc1
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