maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/test/Semantics/if_construct01.f90

52 lines
524 B
Fortran
Raw Normal View History

[flang] Remove the IF specific context classes; in these cases they added no value. Change several error messages to better say what is expected. Adjust tests for new messages. Reformat with llvm7 clang-format. Original-commit: flang-compiler/f18@706b506e26ac675ac443c5b616abda5c4cbd0523 Reviewed-on: https://github.com/flang-compiler/f18/pull/356 Tree-same-pre-rewrite: false
2019-03-27 09:03:33 +08:00
! Simple check that if constructs are ok.
[flang] Implement semantic checks for if statements, if constructs and arithmetic ifs. Original-commit: flang-compiler/f18@deb2726aad63b9bc4c7d35872b4b4279fbcc78f8 Reviewed-on: https://github.com/flang-compiler/f18/pull/356 Tree-same-pre-rewrite: false
2019-03-26 15:33:03 +08:00
if (a < b) then
a = 1
end if
if (a < b) then
a = 2
else
a = 3
endif
if (a < b) then
a = 4
else if(a == b) then
a = 5
end if
if (a < b) then
a = 6
else if(a == b) then
a = 7
elseif(a > b) then
a = 8
end if
if (a < b) then
a = 9
else if(a == b) then
a = 10
else
a = 11
end if
if (a < b) then
a = 12
else if(a == b) then
a = 13
else if(a > b) then
a = 14
end if
[flang] Fix bug resolving internal and module functions When analyzing a function call in an expression we weren't properly recognizing a ProcedureDesignator that was the name of an internal or module function, i.e. a symbol with SubprogramDetails. The fix is to add IsProcedure to identify symbols that correspond to procedures. IsFunction and GetType also need to be extended to handle this case. Fixes flang-compiler/f18#391. Original-commit: flang-compiler/f18@f165f8d38ce0cefd16e0f35644e8fdcbe92ed6de Reviewed-on: https://github.com/flang-compiler/f18/pull/417 Tree-same-pre-rewrite: false
2019-04-17 22:42:16 +08:00
if (f()) then
a = 15
end if
contains
logical function f()
f = .true.
end
[flang] Implement semantic checks for if statements, if constructs and arithmetic ifs. Original-commit: flang-compiler/f18@deb2726aad63b9bc4c7d35872b4b4279fbcc78f8 Reviewed-on: https://github.com/flang-compiler/f18/pull/356 Tree-same-pre-rewrite: false
2019-03-26 15:33:03 +08:00
end