29 lines · plain
1!RUN: %python %S/test_errors.py %s %flang_fc12program test3 real, target :: x4 type t15 integer :: j/1/6 real, pointer :: ap/x/7 end type8 type, extends(t1) :: t29 integer :: k/2/10 end type11 type t3(k)12 integer, kind :: k13 !ERROR: Component 'j' in a parameterized data type may not be initialized with a legacy DATA-style value list14 integer :: j/3/15 end type16 type t417 !ERROR: DATA statement set has more values than objects18 integer j(1) /4, 5/19 end type20 type t521 integer uninitialized22 end type23 type(t2), parameter :: x2 = t2() !ok24 integer(kind=merge(1,-1,x2%j==1)) tx2j25 integer(kind=merge(2,-1,x2%k==2)) tx2k26 !ERROR: Structure constructor lacks a value for component 'uninitialized'27 type(t5), parameter :: x5 = t5()28end29