llvm-project/flang/test/Semantics/if_arith04.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

33 lines
610 B
Fortran
Raw Normal View History

! RUN: %S/test_errors.sh %s %t %f18
! Make sure arithmetic if expressions are non-complex numeric exprs.
INTEGER I
COMPLEX Z
LOGICAL L
INTEGER, DIMENSION (2) :: B
if ( I ) 100, 200, 300
100 CONTINUE
200 CONTINUE
300 CONTINUE
!ERROR: ARITHMETIC IF expression must not be a COMPLEX expression
if ( Z ) 101, 201, 301
101 CONTINUE
201 CONTINUE
301 CONTINUE
!ERROR: ARITHMETIC IF expression must be a numeric expression
if ( L ) 102, 202, 302
102 CONTINUE
202 CONTINUE
302 CONTINUE
!ERROR: ARITHMETIC IF expression must be a scalar expression
if ( B ) 103, 203, 303
103 CONTINUE
203 CONTINUE
303 CONTINUE
END