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