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/label07.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

17 lines
407 B
Fortran
Raw Normal View History

[flang] Add label resolution design document, pass, and tests Original-commit: flang-compiler/f18@e0d0df900c4d823b7114a4d511105c2dbd9d2e77 Reviewed-on: https://github.com/flang-compiler/f18/pull/170 Tree-same-pre-rewrite: false
2018-08-21 07:47:18 +08:00
[flang] Port remaining test_any.sh tests to FileCheck Port the remaining tests which only require mechanical changes and delete test_any.sh. * Delete old RUN lines * Replace: EXEC: ${F18} ... | ${FileCheck} ... with RUN: %f18 .. | FileCheck ... * Prepend RUN line with not when it is expected to fail Also reinstate a de-activated EXEC line and port it in the same way. Differential Revision: https://reviews.llvm.org/D82168
2020-06-27 02:28:43 +08:00
! RUN: not %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s
[flang] Process names in ASSIGN and assigned GOTO Allow ASSIGNed integer variables as formats Address review comment Original-commit: flang-compiler/f18@361a151508b4a1940fc0669dead180be67964d8d Reviewed-on: https://github.com/flang-compiler/f18/pull/1099
2020-04-04 03:05:03 +08:00
! CHECK: Label '30' is not a branch target
! CHECK: Control flow use of '30'
! CHECK: Label '10' is not in scope
! CHECK: Label '20' was not found
! CHECK: Label '60' was not found
[flang] Add label resolution design document, pass, and tests Original-commit: flang-compiler/f18@e0d0df900c4d823b7114a4d511105c2dbd9d2e77 Reviewed-on: https://github.com/flang-compiler/f18/pull/170 Tree-same-pre-rewrite: false
2018-08-21 07:47:18 +08:00
subroutine sub00(n,m)
30 format (i6,f6.2)
if (n .eq. m) then
10 print *,"equal"
end if
call sub01(n,*10,*20,*30)
write (*,60) n, m
end subroutine sub00