20 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! XFAIL: *3program main4 TYPE ty(k1,k2)5 INTEGER ,KIND::k1,k2=56 INTEGER::arr(k1:k2)=107 CHARACTER(LEN=k2)::CHARACTER8 END TYPE ty9 TYPE,EXTENDS(ty)::ty1(k3)10 INTEGER,KIND ::k3=411 TYPE(ty(2,k3+1))::cmp_ty = ty(2,k3+1)(55,'HI')12 END TYPE ty113 TYPE ty2(l1, l2)14 !ERROR: not yet implemented: parameterized derived types15 INTEGER,LEN ::l1,l216 TYPE(ty1(2,5)), ALLOCATABLE::ty1_cmp(:)17 END TYPE ty218 TYPE(ty2(4,8)) ::ty2_obj19end program main20