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