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

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

9 lines
148 B
Fortran
Raw Normal View History

! RUN: %S/test_errors.sh %s %t %f18
! Check that a basic arithmetic if compiles.
if ( A ) 100, 200, 300
100 CONTINUE
200 CONTINUE
300 CONTINUE
END