e81b340117
This patch adds two debugging options in the new Flang driver
(flang-new):
*fdebug-unparse-no-sema
*fdebug-dump-parse-tree-no-sema
Each of these options combines two options from the "throwaway" driver
(left: f18, right: flang-new):
* `-fdebug-uparse -fdebug-no-semantics` --> `-fdebug-unparse-no-sema`
* `-fdebug-dump-parse-tree -fdebug-no-semantics` -->
`-fdebug-dump-parse-tree-no-sema`
There are no plans to implement `-fdebug-no-semantics` in the new
driver. Such option would be too powerful. Also, it would only make
sense when combined with specific frontend actions (`-fdebug-unparse`
and `-fdebug-dump-parse-tree`). Instead, this patch adds 2 specialised
options listed above. Each of these is implemented through a dedicated
FrontendAction (also added).
The new frontend actions are implemented in terms of a new abstract base
action: `PrescanAndSemaAction`. This new base class was required so that
we can have finer control over what steps within the frontend are
executed:
* `PrescanAction`: run the _prescanner_
* `PrescanAndSemaAction`: run the _prescanner_ and the _parser_ (new
in this patch)
* `PrescanAndSemaAction`: run the _prescanner_, _parser_ and run the
_semantic checks_
This patch introduces `PrescanAndParseAction::BeginSourceFileAction`.
Apart from the semantic checks removed at the end, it is similar to
`PrescanAndSemaAction::BeginSourceFileAction`.
Differential Revision: https://reviews.llvm.org/D99645
45 lines
1.3 KiB
Fortran
45 lines
1.3 KiB
Fortran
! RUN: %flang_fc1 -fdebug-unparse-no-sema -fopenmp %s | FileCheck %s
|
|
! Check Unparsing of OpenMP Allocate directive
|
|
|
|
program allocate_unparse
|
|
use omp_lib
|
|
|
|
real, dimension (:,:), allocatable :: darray
|
|
integer :: a, b, m, n, t, x, y, z
|
|
|
|
! 2.11.3 declarative allocate
|
|
|
|
!$omp allocate(x, y)
|
|
!$omp allocate(x, y) allocator(omp_default_mem_alloc)
|
|
|
|
! 2.11.3 executable allocate
|
|
|
|
!$omp allocate(a, b)
|
|
allocate ( darray(a, b) )
|
|
!$omp allocate allocator(omp_default_mem_alloc)
|
|
allocate ( darray(a, b) )
|
|
!$omp allocate(a, b) allocator(omp_default_mem_alloc)
|
|
allocate ( darray(a, b) )
|
|
|
|
!$omp allocate(t) allocator(omp_const_mem_alloc)
|
|
!$omp allocate(z) allocator(omp_default_mem_alloc)
|
|
!$omp allocate(m) allocator(omp_default_mem_alloc)
|
|
!$omp allocate(n)
|
|
allocate ( darray(z, t) )
|
|
|
|
end program allocate_unparse
|
|
|
|
!CHECK:!$OMP ALLOCATE (x,y)
|
|
!CHECK:!$OMP ALLOCATE (x,y) ALLOCATOR(omp_default_mem_alloc)
|
|
!CHECK:!$OMP ALLOCATE (a,b)
|
|
!CHECK:ALLOCATE(darray(a,b))
|
|
!CHECK:!$OMP ALLOCATE ALLOCATOR(omp_default_mem_alloc)
|
|
!CHECK:ALLOCATE(darray(a,b))
|
|
!CHECK:!$OMP ALLOCATE (a,b) ALLOCATOR(omp_default_mem_alloc)
|
|
!CHECK:ALLOCATE(darray(a,b))
|
|
!CHECK:!$OMP ALLOCATE (t) ALLOCATOR(omp_const_mem_alloc)
|
|
!CHECK:!$OMP ALLOCATE (z) ALLOCATOR(omp_default_mem_alloc)
|
|
!CHECK:!$OMP ALLOCATE (m) ALLOCATOR(omp_default_mem_alloc)
|
|
!CHECK:!$OMP ALLOCATE (n)
|
|
!CHECK:ALLOCATE(darray(z,t))
|