flang/test/Semantics/data22.f90

   1 ! RUN: %flang_fc1 -fdebug-dump-symbols %s 2>&1 | FileCheck %s
   2 ! Ensure that implicitly typed DATA statement objects with derived
   3 ! types get their symbols resolved by the end of the name resolution pass.
   4 ! CHECK: x1 (Implicit, InDataStmt) size=4 offset=0: ObjectEntity type: TYPE(t1) shape: 1_8:1_8 init:[t1::t1(n=123_4)]
   5 ! CHECK: x2 (InDataStmt) size=4 offset=4: ObjectEntity type: TYPE(t2) shape: 1_8:1_8 init:[t2::t2(m=456_4)]
   6 implicit type(t1)(x)
   7 type t1
   8   integer n
   9 end type
  10 dimension x1(1), x2(1)
  11 data x1(1)%n /123/
  12 data x2(1)%m /456/
  13 type t2
  14   integer m
  15 end type
  16 type(t2) x2
  17 end