| ! RUN: %python %S/test_errors.py %s %flang_fc1 | |
| ! Check that non-logical expressions are not allowed. | |
| ! Check that non-scalar expressions are not allowed. | |
| ! TODO: Insure all non-logicals are prohibited. | |
| LOGICAL, DIMENSION (2) :: B | |
| !ERROR: Must have LOGICAL type, but is REAL(4) | |
| IF (A) A = LOG (A) | |
| !ERROR: Must be a scalar value, but is a rank-1 array | |
| IF (B) A = LOG (A) | |
| END |