flang/test/Semantics/if_stmt03.f90

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