14 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! 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) :: B7 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 array11IF (B) A = LOG (A)12 13END14