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
41 lines
1.1 KiB
Fortran
41 lines
1.1 KiB
Fortran
! when the loops are not DO CONCURRENT
|
|
|
|
! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
|
|
! CHECK-NOT: image control statement not allowed in DO CONCURRENT
|
|
! CHECK-NOT: RETURN not allowed in DO CONCURRENT
|
|
! CHECK-NOT: call to impure procedure in DO CONCURRENT not allowed
|
|
! CHECK-NOT: IEEE_GET_FLAG not allowed in DO CONCURRENT
|
|
! CHECK-NOT: ADVANCE specifier not allowed in DO CONCURRENT
|
|
! CHECK-NOT: SYNC ALL
|
|
! CHECK-NOT: SYNC IMAGES
|
|
|
|
module ieee_exceptions
|
|
interface
|
|
subroutine ieee_get_flag(i, j)
|
|
integer :: i, j
|
|
end subroutine ieee_get_flag
|
|
end interface
|
|
end module ieee_exceptions
|
|
|
|
subroutine do_concurrent_test1(i,n)
|
|
implicit none
|
|
integer :: i, n
|
|
do 10 i = 1,n
|
|
SYNC ALL
|
|
SYNC IMAGES (*)
|
|
return
|
|
10 continue
|
|
end subroutine do_concurrent_test1
|
|
|
|
subroutine do_concurrent_test2(i,j,n,flag)
|
|
use ieee_exceptions
|
|
implicit none
|
|
integer :: i, j, n, flag, flag2
|
|
do i = 1,n
|
|
change team (j)
|
|
call ieee_get_flag(flag, flag2)
|
|
end team
|
|
write(*,'(a35)',advance='no')
|
|
end do
|
|
end subroutine do_concurrent_test2
|