17 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Catch error instead of crashing with infinite recursion3! when a LEN PDT from one type is being used to define a4! LEN PDT in another type's instantiation.5program main6 type t1(lp)7 integer, len :: lp8 end type9 type t2(lp)10 integer, len :: lp11 type(t1(lp)) :: c12 end type13 integer local14 !ERROR: Invalid specification expression: reference to local entity 'local'15 type(t2(local)) :: x16end17