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

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

11 lines
425 B
Fortran
Raw Normal View History

[flang][f18] Make -fdebug-dump-{symbols|parse-tree} imply -fsyntax-only The following _action_ options are always used with `-fsyntax-only` (also an _action_ option): * -fdebug-dump-symbols * -fdebug-dump-parse-tree This patch makes the above options imply `-fsyntax-only`. From the perspective of `f18` this change saves typing and is otherwise a non-functional change. But it will simplify things in the new driver, `flang-new`, in which only the last action option is taken into account and executed. In other words, the following would only run `-fsyntax-only`: ``` flang-new -fdebug-dump-symbols -fsyntax-only <input> ``` whereas this would only run `-fdebug-dump-symbols`: ``` flang-new -fsyntax-only -fdebug-dump-symbols <input> ``` Differential Revision: https://reviews.llvm.org/D96528
2021-02-12 02:28:25 +08:00
! RUN: %f18 -fdebug-dump-parse-tree %s 2>&1 | FileCheck %s
[flang] Detect and rewrite ambiguous READ(CVAR)[,item-list] READ(CVAR)[,item-list] with a character variable CVAR could be parsed as an unformatted READ from an internal unit or as a formatted READ from the default external unit with a needlessly parenthesized variable format. We parse it as the former, but Fortran doesn't have unformatted internal I/O. Differential revision: https://reviews.llvm.org/D90493
2020-10-31 03:53:42 +08:00
! Ensure that READ(CVAR) [, item-list] is corrected when CVAR is a
! character variable so as to be a formatted read from the default
! unit, not an unformatted read from an internal unit (which is not
! possible in Fortran).
character :: cvar
! CHECK-NOT: IoUnit -> Variable -> Designator -> DataRef -> Name = 'cvar'
! CHECK: Format -> Expr = 'cvar'
read(cvar)
end