llvm-project/flang/test/Semantics/data09.f90

! RUN: %flang_fc1 -fsyntax-only -fdebug-dump-symbols %s 2>&1 | FileCheck %s
! CHECK: init:[INTEGER(4)::1065353216_4,1073741824_4,1077936128_4,1082130432_4]
! Verify that the closure of EQUIVALENCE'd symbols with any DATA
! initialization produces a combined initializer.
real :: a(2), b(2), c(2)
equivalence(a(2),b(1)),(b(2),c(1))
data a(1)/1./,b(1)/2./,c/3.,4./
common /block/ a
end
[flang][driver] Add debug dump options Add the following options: * -fdebug-dump-symbols * -fdebug-dump-parse-tree * -fdebug-dump-provenance Summary of changes: - Add 3 new frontend actions: DebugDumpSymbolsAction, DebugDumpParseTreeAction and DebugDumpProvenanceAction - Add a unique pointer to the Semantics instance created in PrescanAndSemaAction - Move fatal semantic error reporting to its own method, FrontendActions#reportFatalSemanticErrors - Port most tests using `-fdebug-dump-symbols` and `-fdebug-dump-parse-tree` to the new driver if built, otherwise default to f18 Differential Revision: https://reviews.llvm.org/D96716 2021-02-17 23:55:56 +08:00			`! RUN: %flang_fc1 -fsyntax-only -fdebug-dump-symbols %s 2>&1 \| FileCheck %s`
[flang] Handle DATA initialization of EQUIVALENCE'd objects Objects that are storage associated by EQUIVALENCE and initialized with DATA are initialized by creating a compiler temporary data object in the same scope, assigning it an offset, type, and size that covers the transitive closure of the associated initialized original symbols, and combining their initializers into one common initializer for the temporary. Some problems with offset assignment of EQUIVALENCE'd objects in COMMON were exposed and corrected, and some more error cases are checked. Remove obsolete function. Small bugfix (nested implied dos). Add a test. Fix struct/class warning. Differential Revision: https://reviews.llvm.org/D85560 2020-08-08 04:25:11 +08:00			`! CHECK: init:[INTEGER(4)::1065353216_4,1073741824_4,1077936128_4,1082130432_4]`
			`! Verify that the closure of EQUIVALENCE'd symbols with any DATA`
			`! initialization produces a combined initializer.`
			`real :: a(2), b(2), c(2)`
			`equivalence(a(2),b(1)),(b(2),c(1))`
			`data a(1)/1./,b(1)/2./,c/3.,4./`
			`common /block/ a`
			`end`