1! RUN: %f18 -fparse-only -fdebug-dump-symbols %s 2>&1 | FileCheck %s
2! CHECK: init:[INTEGER(4)::1065353216_4,1073741824_4,1077936128_4,1082130432_4]
3! Verify that the closure of EQUIVALENCE'd symbols with any DATA
4! initialization produces a combined initializer.
5real :: a(2), b(2), c(2)
6equivalence(a(2),b(1)),(b(2),c(1))
7data a(1)/1./,b(1)/2./,c/3.,4./
8common /block/ a
9end
10