1! RUN: %S/test_errors.sh %s %t %f18 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