2021-09-06 16:19:20 +08:00
|
|
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
2019-03-26 15:33:03 +08:00
|
|
|
! Check that non-logical expressions are not allowed.
|
|
|
|
! Check that non-scalar expressions are not allowed.
|
|
|
|
! TODO: Insure all non-logicals are prohibited.
|
|
|
|
|
|
|
|
LOGICAL, DIMENSION (2) :: B
|
|
|
|
|
2019-04-12 08:22:16 +08:00
|
|
|
!ERROR: Must have LOGICAL type, but is REAL(4)
|
2019-03-26 15:33:03 +08:00
|
|
|
IF (A) A = LOG (A)
|
2019-04-12 08:22:16 +08:00
|
|
|
!ERROR: Must be a scalar value, but is a rank-1 array
|
2019-03-26 15:33:03 +08:00
|
|
|
IF (B) A = LOG (A)
|
|
|
|
|
|
|
|
END
|