34eb0adaa9
Now that semantics is working, the standard -fsyntax-only option of GNU and Clang should be used as the name of the option that causes f18 to just run the front-end. Support both options in f18, silently accepting the old option as a synonym for the new one (as preferred by the code owner), and replace all instances of the old -fparse-only option with -fsyntax-only throughout the source base. Differential Revision: https://reviews.llvm.org/D95887
10 lines
378 B
Fortran
10 lines
378 B
Fortran
! RUN: %f18 -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
|