flang/test/Semantics/if_stmt03.f90

   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
   6 LOGICAL, DIMENSION (2) :: B
   7
   8 !ERROR: Must have LOGICAL type, but is REAL(4)
   9 IF (A) A = LOG (A)
  10 !ERROR: Must be a scalar value, but is a rank-1 array
  11 IF (B) A = LOG (A)
  12
  13 END