1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3! Check that non-logical expressions are not allowed.
4! Check that non-scalar expressions are not allowed.
5! TODO: Insure all non-logicals are prohibited.
6
7LOGICAL, DIMENSION (2) :: B
8
9!ERROR: Must have LOGICAL type, but is REAL(4)
10IF (A) A = LOG (A)
11!ERROR: Must be a scalar value, but is a rank-1 array
12IF (B) A = LOG (A)
13
14END
15