96d229c9ab
This patch adds the following compiler frontend driver options: * -fdebug-unparse (f18 spelling: -funparse) * -fdebug-unparse-with-symbols (f18 spelling: -funparse-with-symbols) The new driver will only accept the new spelling. `f18` will accept both the original and the new spelling. A new base class for frontend actions is added: `PrescanAndSemaAction`. This is added to reduce code duplication that otherwise these new options would lead to. Implementation from * `ParseSyntaxOnlyAction::ExecutionAction` is moved to: * `PrescanAndSemaAction::BeginSourceFileAction` This implementation is now shared between: * PrescanAndSemaAction * ParseSyntaxOnlyAction * DebugUnparseAction * DebugUnparseWithSymbolsAction All tests that don't require other yet unimplemented options are updated. This way `flang-new -fc1` is used instead of `f18` when `FLANG_BUILD_NEW_DRIVER` is set to `On`. In order to facilitate this, `%flang_fc1` is added in the LIT configuration (lit.cfg.py). `asFortran` from f18.cpp is duplicated as `getBasicAsFortran` in FrontendOptions.cpp. At this stage it's hard to find a good place to share this method. I suggest that we revisit this once a switch from `f18` to `flang-new` is complete. Differential Revision: https://reviews.llvm.org/D96483
38 lines
654 B
Fortran
38 lines
654 B
Fortran
|
|
! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
|
|
! CHECK: Label '50' was not found
|
|
! CHECK: Label '55' is not in scope
|
|
! CHECK: Label '70' is not a branch target
|
|
! CHECK: Control flow use of '70'
|
|
|
|
subroutine sub00(a,b,n,m)
|
|
real a(n,m)
|
|
real b(n,m)
|
|
if (n .ne. m) then
|
|
goto 50
|
|
end if
|
|
6 n = m
|
|
end subroutine sub00
|
|
|
|
subroutine sub01(a,b,n,m)
|
|
real a(n,m)
|
|
real b(n,m)
|
|
if (n .ne. m) then
|
|
goto 55
|
|
else
|
|
55 continue
|
|
end if
|
|
60 n = m
|
|
end subroutine sub01
|
|
|
|
subroutine sub02(a,b,n,m)
|
|
real a(n,m)
|
|
real b(n,m)
|
|
if (n .ne. m) then
|
|
goto 70
|
|
else
|
|
return
|
|
end if
|
|
70 FORMAT (1x,i6)
|
|
end subroutine sub02
|