Google Git
Sign in
llvm / llvm-project / flang / 5bf75c23735dff564704f5d33662b628b9570af4 / . / test / Semantics / if_arith01.f90
blob: abce953a330a1f01e994b4d51f8de04219d5ed90 [file] [log] [blame]
! 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