Mercurial > hg > CbC > CbC_llvm
diff flang/test/Semantics/resolve59.f90 @ 252:1f2b6ac9f198 llvm-original
LLVM16-1
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 18 Aug 2023 09:04:13 +0900 |
parents | c4bab56944e8 |
children |
line wrap: on
line diff
--- a/flang/test/Semantics/resolve59.f90 Wed Nov 09 17:47:54 2022 +0900 +++ b/flang/test/Semantics/resolve59.f90 Fri Aug 18 09:04:13 2023 +0900 @@ -59,10 +59,10 @@ x = acos(f5) end function ! Sanity test: f18 handles C1560 violation by ignoring RESULT - !WARNING: The function name should not appear in RESULT, references to 'f6' inside the function will be considered as references to the result only + !WARNING: The function name should not appear in RESULT; references to 'f6' inside the function will be considered as references to the result only function f6() result(f6) end function - !WARNING: The function name should not appear in RESULT, references to 'f7' inside the function will be considered as references to the result only + !WARNING: The function name should not appear in RESULT; references to 'f7' inside the function will be considered as references to the result only function f7() result(f7) real :: x, f7 !ERROR: Recursive call to 'f7' requires a distinct RESULT in its declaration