Google Git
Sign in
llvm / llvm-project / flang / eda5f3e1c500d89c4a053b151d7073412c3d02f2 / . / test / Semantics / if_arith01.f90
blob: 6206f4e55411167ad9e3d0a63ab94c37eea26a26 [file] [log] [blame]
! RUN: %S/test_errors.sh %s %t %flang_fc1
! Check that a basic arithmetic if compiles.
if ( A ) 100, 200, 300
100 CONTINUE
200 CONTINUE
300 CONTINUE
END