1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
3 ! Check that if constructs only accept scalar logical expressions.
4 ! TODO: expand the test to check this restriction for more types.
7 LOGICAL, DIMENSION (2) :: B
9 !ERROR: Must be a scalar value, but is a rank-1 array
14 !ERROR: Must be a scalar value, but is a rank-1 array
21 !ERROR: Must be a scalar value, but is a rank-1 array
24 !ERROR: Must be a scalar value, but is a rank-1 array
29 !ERROR: Must be a scalar value, but is a rank-1 array
32 !ERROR: Must be a scalar value, but is a rank-1 array
35 !ERROR: Must be a scalar value, but is a rank-1 array
40 !ERROR: Must be a scalar value, but is a rank-1 array
43 !ERROR: Must be a scalar value, but is a rank-1 array
50 !ERROR: Must be a scalar value, but is a rank-1 array
53 !ERROR: Must be a scalar value, but is a rank-1 array
56 !ERROR: Must be a scalar value, but is a rank-1 array
62 !ERROR: Must have LOGICAL type, but is INTEGER(4)
67 !ERROR: Must have LOGICAL type, but is INTEGER(4)
74 !ERROR: Must have LOGICAL type, but is INTEGER(4)
77 !ERROR: Must have LOGICAL type, but is INTEGER(4)
82 !ERROR: Must have LOGICAL type, but is INTEGER(4)
85 !ERROR: Must have LOGICAL type, but is INTEGER(4)
88 !ERROR: Must have LOGICAL type, but is INTEGER(4)
93 !ERROR: Must have LOGICAL type, but is INTEGER(4)
96 !ERROR: Must have LOGICAL type, but is INTEGER(4)
103 !ERROR: Must have LOGICAL type, but is INTEGER(4)
106 !ERROR: Must have LOGICAL type, but is INTEGER(4)
109 !ERROR: Must have LOGICAL type, but is INTEGER(4)
114 !ERROR: Must have LOGICAL type, but is REAL(4)