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