18 lines · plain
1! RUN: %flang_fc1 -fdebug-dump-symbols %s 2>&1 | FileCheck %s2! Ensure that implicitly typed DATA statement objects with derived3! 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)]6implicit type(t1)(x)7type t18 integer n9end type10dimension x1(1), x2(1)11data x1(1)%n /123/12data x2(1)%m /456/13type t214 integer m15end type16type(t2) x217end18